home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / mail / YAM23src.lha / Source / YAM_WR.c < prev    next >
Encoding:
C/C++ Source or Header  |  2001-05-14  |  106.2 KB  |  2,436 lines
  1. /***************************************************************************
  2.  
  3.  YAM - Yet Another Mailer
  4.  Copyright (C) 1995-2000 by Marcel Beck <mbeck@yam.ch>
  5.  Copyright (C) 2000-2001 by YAM Open Source Team
  6.  
  7.  This program is free software; you can redistribute it and/or modify
  8.  it under the terms of the GNU General Public License as published by
  9.  the Free Software Foundation; either version 2 of the License, or
  10.  (at your option) any later version.
  11.  
  12.  This program is distributed in the hope that it will be useful,
  13.  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.  GNU General Public License for more details.
  16.  
  17.  You should have received a copy of the GNU General Public License
  18.  along with this program; if not, write to the Free Software
  19.  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20.  
  21.  YAM Official Support Site :  http://www.yam.ch
  22.  YAM OpenSource project    :  http://sourceforge.net/projects/yamos/
  23.  
  24.  $Id: YAM_WR.c,v 1.29.2.1 2001/05/14 19:58:53 laursen Exp $
  25.  
  26. ***************************************************************************/
  27.  
  28. #include "YAM.h"
  29.  
  30. /* local protos */
  31. LOCAL void WR_ComposeMulti(FILE*, struct Compose*, char*);
  32. LOCAL struct WritePart *BuildPartsList(int);
  33. LOCAL char *GetDateTime(void);
  34. LOCAL char *NewID(BOOL);
  35. LOCAL int WhichEncodingForFile(char*, char*);
  36. LOCAL int WR_CharOut(char);
  37. LOCAL char *firstbad(char*);
  38. LOCAL void PutQP(unsigned char, FILE*);
  39. LOCAL void HeaderFputs(char*, FILE*);
  40. LOCAL void EmitRcptField(FILE*, char*);
  41. LOCAL void EmitRcptHeader(FILE*, char*, char*);
  42. LOCAL void FPutsQuoting(char*, FILE*);
  43. LOCAL void WriteCtypeNicely(FILE*, char*);
  44. LOCAL void WriteContentTypeAndEncoding(FILE*, struct WritePart*);
  45. LOCAL void WR_WriteUIItem(FILE*, int*, char*, char*);
  46. LOCAL void WR_WriteUserInfo(FILE*);
  47. LOCAL void EncodePart(FILE*, struct WritePart*);
  48. LOCAL BOOL WR_CreateHashTable(char*, char*, char*);
  49. LOCAL void WR_AddTagline(FILE*);
  50. LOCAL void WR_WriteSignature(FILE*, int);
  51. LOCAL void WR_Anonymize(FILE*, char*);
  52. LOCAL char *WR_GetPGPId(struct Person*);
  53. LOCAL char *WR_GetPGPIds(char*, char*);
  54. LOCAL BOOL WR_Bounce(FILE*, struct Compose*);
  55. LOCAL BOOL WR_SaveDec(FILE*, struct Compose*);
  56. LOCAL void WR_EmitExtHeader(FILE*, struct Compose*);
  57. LOCAL void WR_ComposeReport(FILE*, struct Compose*, char*);
  58. LOCAL void SetDefaultSecurity(struct Compose*);
  59. LOCAL BOOL WR_ComposePGP(FILE*, struct Compose*, char*);
  60. LOCAL char *WR_TransformText(char*, int, char*);
  61. LOCAL void WR_SharedSetup(struct WR_ClassData*, int);
  62. LOCAL APTR MakeAddressField(APTR*, char*, APTR, int, int, BOOL);
  63. LOCAL struct WR_ClassData *WR_NewBounce(int);
  64.  
  65.  
  66. /***************************************************************************
  67.  Module: Write
  68. ***************************************************************************/
  69.  
  70. /*** Translate aliases ***/
  71. /// WR_ResolveName
  72. //  Looks for an alias, email address or name in the address book
  73. char FailedAlias[SIZE_NAME];
  74. int WR_ResolveName(int winnum, char *name, char **adrstr, BOOL nolists)
  75. {
  76.    int hits = 0, i, retcode;
  77.    struct ABEntry *ab;
  78.    struct MUI_NListtree_TreeNode *tn, *tn2;
  79.  
  80.    stccpy(FailedAlias, name, SIZE_NAME);
  81.    AB_SearchEntry(MUIV_NListtree_GetEntry_ListNode_Root, name, ASM_ALIAS|ASM_USER|ASM_LIST|ASM_GROUP, &hits, &tn);
  82.    if (hits > 1) return 3; // multiple matches
  83.    if (!hits)
  84.    {
  85.       AB_SearchEntry(MUIV_NListtree_GetEntry_ListNode_Root, name, ASM_REALNAME|ASM_USER|ASM_LIST|ASM_GROUP, &hits, &tn);
  86.       if (hits > 1) return 3;
  87.       else if (!hits)
  88.       {
  89.           AB_SearchEntry(MUIV_NListtree_GetEntry_ListNode_Root, name, ASM_ADDRESS|ASM_USER|ASM_LIST|ASM_GROUP, &hits, &tn);
  90.                 if (hits > 1) return 3;
  91.         else
  92.         {
  93.           if (!hits && strchr(name, '@'))
  94.             {
  95.                       char *p = NULL;
  96.                       struct Person pe;
  97.  
  98.                       ExtractAddress(name, &pe);
  99.  
  100.                       if (pe.Address[0]) p = strchr(pe.Address, '@'); // is it an email address?
  101.  
  102.                   if (!p[1]) strcpy(p, strchr(C->EmailAddress, '@'));
  103.                   if (**adrstr) *adrstr = StrBufCat(*adrstr, ", ");
  104.                   *adrstr = StrBufCat(*adrstr, BuildAddrName2(&pe));
  105.                 return 0;     // if it is an email we return without an error because finding an entry for an email isn`t a must
  106.               }
  107.           else if (!hits) return 2;
  108.         }
  109.       }
  110.    }
  111.  
  112.    ab = tn->tn_User;
  113.  
  114.    switch (ab->Type)
  115.    {
  116.       case AET_USER:
  117.          if (**adrstr) *adrstr = StrBufCat(*adrstr, ", ");
  118.          *adrstr = StrBufCat(*adrstr, BuildAddrName(ab->Address, ab->RealName));
  119.          break;
  120.       case AET_LIST:
  121.          if (nolists) return 4;
  122.          if (winnum >= 0) if ((ab->Address[0] || ab->RealName[0]) && !G->WR[winnum]->ListEntry) G->WR[winnum]->ListEntry = ab;
  123.          if (ab->Members)
  124.          {
  125.             char *ptr;
  126.             for (ptr = ab->Members; *ptr; ptr++)
  127.             {
  128.                char *nptr = strchr(ptr, '\n');
  129.                if (nptr) *nptr = 0; else break;
  130.                retcode = WR_ResolveName(winnum, ptr, adrstr, nolists);
  131.                *nptr = '\n'; ptr = nptr;
  132.                if (retcode) return retcode;
  133.             }
  134.          }
  135.          break;
  136.       case AET_GROUP:
  137.          if (nolists) return 4;
  138.          for (i=0; ; i++)
  139.             if ((tn2 = (struct MUI_NListtree_TreeNode *)DoMethod(G->AB->GUI.LV_ADRESSES, MUIM_NListtree_GetEntry, tn, i, MUIV_NListtree_GetEntry_Flag_SameLevel, 0)))
  140.             {
  141.                struct ABEntry *ab2 = tn2->tn_User;
  142.                if ((retcode = WR_ResolveName(winnum, ab2->Alias, adrstr, nolists))) return retcode;
  143.             }
  144.             else break;
  145.          break;
  146.    }
  147.    return 0;
  148. }
  149.  
  150.  
  151. ///
  152. /// WR_ExpandAddresses
  153. //  Expands aliases and names in a recipient field to valid e-mail addresses
  154. char *WR_ExpandAddresses(int winnum, char *src, BOOL quiet, BOOL single)
  155. {
  156.    char *source, *buffer = malloc(strlen(src)+1), *next, *adr = AllocStrBuf(SIZE_DEFAULT);
  157.    int err;
  158.  
  159.    strcpy(source = buffer, src);
  160.    while (source)
  161.    {
  162.       if (!*source) break;
  163.       if ((next = MyStrChr(source, ','))) *next++ = 0;
  164.       if ((err = WR_ResolveName(winnum, Trim(source), &adr, single)))
  165.       {
  166.          if (err == 2 && !quiet) ER_NewError(GetStr(MSG_ER_AliasNotFound), FailedAlias, NULL);
  167.          if (err == 3 && !quiet) ER_NewError(GetStr(MSG_ER_AmbiguousAlias), FailedAlias, NULL);
  168.          if (err == 4 && !quiet) ER_NewError(GetStr(MSG_ER_InvalidAlias), FailedAlias, NULL);
  169.          FreeStrBuf(adr); adr = NULL;
  170.          break;
  171.       }
  172.       if (single) break;
  173.       source = next;
  174.    }
  175.    free(buffer);
  176.    return adr;
  177. }
  178.  
  179.  
  180. ///
  181. /// WR_VerifyAutoFunc
  182. //  Checks recipient field (user pressed return key)
  183. void SAVEDS ASM WR_VerifyAutoFunc(REG(a1,int *arg))
  184. {
  185.    APTR str = (APTR)arg[0], next = str;
  186.    char *value, *adr;
  187.    get(str, MUIA_String_Contents, &value);
  188.    if ((adr = WR_ExpandAddresses(arg[1], value, TRUE, arg[2])))
  189.    {
  190.       setstring(str, adr);
  191.       FreeStrBuf(adr);
  192.       get(str, MUIA_UserData, &next);
  193.    }
  194.    else DisplayBeep(0);
  195.    if (next) set(_win(next), MUIA_Window_ActiveObject, next);
  196. }
  197. MakeHook(WR_VerifyAutoHook, WR_VerifyAutoFunc);
  198.  
  199.  
  200. ///
  201. /// WR_VerifyManualFunc
  202. //  Checks and expands recipient field (user clicked gadget)
  203. void SAVEDS ASM WR_VerifyManualFunc(REG(a1,int *arg))
  204. {
  205.    APTR object = (APTR)arg[0];
  206.    char *value, *adr;
  207.    get(object, MUIA_String_Contents, &value);
  208.    if ((adr = WR_ExpandAddresses(arg[1], value, FALSE, arg[2])))
  209.    {
  210.       setstring(object, adr);
  211.       FreeStrBuf(adr);
  212.    }
  213. }
  214. MakeHook(WR_VerifyManualHook, WR_VerifyManualFunc);
  215. ///
  216.  
  217.  
  218. /*** Attachments list ***/
  219. /// WR_GetFileEntry
  220. //  Fills form with data from selected list entry
  221. void SAVEDS ASM WR_GetFileEntry(REG(a1,int *arg))
  222. {
  223.    int winnum = *arg;
  224.    struct Attach *attach = NULL;
  225.    struct WR_GUIData *gui = &G->WR[winnum]->GUI;
  226.  
  227.    DoMethod(gui->LV_ATTACH, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &attach);
  228.    DoMethod(G->App, MUIM_MultiSet, MUIA_Disabled, attach ? FALSE : TRUE, gui->RA_ENCODING, gui->ST_CTYPE, gui->ST_DESC, gui->BT_DEL, gui->BT_DISPLAY, NULL);
  229.    if (attach)
  230.    {
  231.       nnset(gui->RA_ENCODING, MUIA_Radio_Active, attach->IsMIME ? 0 : 1);
  232.       nnset(gui->ST_CTYPE, MUIA_String_Contents, attach->ContentType);
  233.       nnset(gui->ST_DESC, MUIA_String_Contents, attach->Description);
  234.    }
  235. }
  236. MakeHook(WR_GetFileEntryHook, WR_GetFileEntry);
  237.  
  238.  
  239. ///
  240. /// WR_PutFileEntry
  241. //  Fills form data into selected list entry
  242. void SAVEDS ASM WR_PutFileEntry(REG(a1,int *arg))
  243. {
  244.    int winnum = *arg;
  245.    struct Attach *attach = NULL;
  246.    struct WR_GUIData *gui = &G->WR[winnum]->GUI;
  247.    int ismime;
  248.  
  249.    DoMethod(gui->LV_ATTACH, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &attach);
  250.    if (attach)
  251.    {
  252.       get(gui->RA_ENCODING, MUIA_Radio_Active, &ismime);
  253.       attach->IsMIME = ismime == 0;
  254.       GetMUIString(attach->ContentType, gui->ST_CTYPE);
  255.       GetMUIString(attach->Description, gui->ST_DESC);
  256.       DoMethod(gui->LV_ATTACH, MUIM_List_Redraw, MUIV_List_Redraw_Active);
  257.    }
  258. }
  259. MakeHook(WR_PutFileEntryHook, WR_PutFileEntry);
  260.  
  261.  
  262. ///
  263. /// WR_AddFileToList
  264. //  Adds a file to the attachment list, gets its size and type
  265. BOOL WR_AddFileToList(int winnum, char *filename, char *name, BOOL istemp)
  266. {
  267.    static struct Attach attach;
  268.    struct FileInfoBlock *fib;
  269.    struct WR_GUIData *gui = &G->WR[winnum]->GUI;
  270.    char *ctype;
  271.    int encoding;
  272.    BPTR lock;
  273.  
  274.    if (!filename) return FALSE;
  275.    clear(&attach, sizeof(struct Attach));
  276.    if (!(lock = Lock(filename, ACCESS_READ))) return FALSE;
  277.    fib = AllocDosObject(DOS_FIB, NULL);
  278.    Examine(lock, fib);
  279.    attach.Size = fib->fib_Size;
  280.    stccpy(attach.Description, fib->fib_Comment, SIZE_DEFAULT);
  281.    FreeDosObject(DOS_FIB, fib);
  282.    UnLock(lock);
  283.    ctype = IdentifyFile(filename);
  284.    if (*ctype)
  285.    {  
  286.       strcpy(attach.FilePath, filename); 
  287.       strcpy(attach.Name, name ? name : (char *)FilePart(filename));
  288.       get(gui->RA_ENCODING, MUIA_Radio_Active, &encoding);
  289.       attach.IsMIME = encoding == 0;
  290.       attach.IsTemp = istemp;
  291.       strcpy(attach.ContentType, ctype);
  292.       nnset(gui->ST_CTYPE, MUIA_String_Contents, attach.ContentType);
  293.       nnset(gui->ST_DESC, MUIA_String_Contents, attach.Description);
  294.       DoMethod(gui->LV_ATTACH, MUIM_List_InsertSingle, &attach, MUIV_List_Insert_Bottom);
  295.       set(gui->LV_ATTACH, MUIA_List_Active, MUIV_List_Active_Bottom);
  296.       return TRUE;
  297.    }
  298.    return FALSE;
  299. }  
  300. ///
  301.  
  302.  
  303. /*** Compose Message ***/
  304. /// GetDateTime
  305. //  Formats current date and time for Date header field
  306. LOCAL char *GetDateTime(void)
  307. {
  308.    static char dt[SIZE_DEFAULT];
  309.    struct ClockData cd;
  310.    char *tz;
  311.  
  312.    Amiga2Date(GetDateStamp(), &cd);
  313.    sprintf(dt, "%s, %02ld %s %ld %02ld:%02ld:%02ld", wdays[cd.wday], cd.mday, months[cd.month-1], cd.year, cd.hour, cd.min, cd.sec);
  314.    if ((tz = GetTZ())) { strcat(dt, " "); strcat(dt, tz); }
  315.    return dt;  
  316. }
  317.  
  318.  
  319. ///
  320. /// NewID
  321. //  Creates a unique id, used for Message-ID header field
  322. LOCAL char *NewID(BOOL is_msgid)
  323. {
  324.    static char idbuf[SIZE_MSGID];
  325.    static int ctr = 0;
  326.    struct DateStamp ds;
  327.  
  328.    DateStamp(&ds);
  329.    if (is_msgid) sprintf(idbuf, "yam%ld.%ld.%ld@%s", ds.ds_Days, ds.ds_Tick, FindTask(NULL), C->SMTP_Server);
  330.    else          sprintf(idbuf, "%ld.%ld", FindTask(NULL), ++ctr);
  331.    return idbuf;
  332. }
  333.  
  334.  
  335. ///
  336. /// WhichEncodingForFile
  337. //  Determines best MIME encoding mode for a file
  338. LOCAL int WhichEncodingForFile(char *fname, char *ctype)
  339. {
  340.    int c, linesize=0, total=0, unsafechars=0, binarychars=0, longlines=0;
  341.    FILE *fh = fopen(fname, "r");
  342.  
  343.    if (!fh) return ENC_B64;
  344.    while ((c = fgetc(fh)) != -1)
  345.    {
  346.       if (c > 127) ++unsafechars;
  347.       if (c < 32 && c != '\t' && c != '\n' && c != '\r') ++binarychars;
  348.       ++total;
  349.       if (c == '\n') 
  350.       {
  351.          if (linesize > 79) ++longlines;
  352.          linesize = 0;
  353.       } else ++linesize;
  354.       if (total > 4000 && (longlines || unsafechars || binarychars)) break;
  355.    }
  356.    fclose(fh);
  357.    if (longlines || unsafechars || binarychars)
  358.    {
  359.       if (!strnicmp(ctype, "image/", 6) ||
  360.           !strnicmp(ctype, "audio/", 6) ||
  361.           !strnicmp(ctype, "application/octet-stream", 24) ||
  362.           !strnicmp(ctype, "video/", 6))
  363.          return ENC_B64;
  364.       if (!strnicmp(ctype, "message/", 8)) return (longlines) ? ENC_BIN : ENC_8BIT;
  365.       if (!unsafechars && !binarychars) return C->Allow8bit ? ENC_BIN : ENC_QP;
  366.       if (C->Allow8bit && !binarychars) return ENC_8BIT;
  367.       return (total/++unsafechars < 16) ? ENC_B64 : ENC_QP;
  368.    }
  369.    return ENC_NONE;
  370. }
  371.  
  372.  
  373. ///
  374. /// NewPart
  375. //  Initializes a new message part
  376. struct WritePart *NewPart(int winnum)
  377. {
  378.    struct WritePart *p;
  379.    p = (struct WritePart *)calloc(1,sizeof(struct WritePart));
  380.    p->ContentType = "text/plain";
  381.    p->EncType = ENC_NONE;
  382.    p->Filename = G->WR_Filename[winnum];
  383. //   p->Name = NULL; // redundant due to calloc() -msbethke
  384.    return p;
  385. }
  386.  
  387.  
  388. ///
  389. /// BuildPartsList
  390. //  Builds message parts from attachment list
  391. LOCAL struct WritePart *BuildPartsList(int winnum)
  392. {
  393.    int i;
  394.    struct Attach *att;
  395.    struct WritePart *first, *p, *np;
  396.  
  397.    first = p = NewPart(winnum); p->IsTemp = TRUE;
  398.    p->EncType = WhichEncodingForFile(p->Filename, p->ContentType);
  399.    for (i = 0; ; i++)
  400.    {
  401.       DoMethod(G->WR[winnum]->GUI.LV_ATTACH, MUIM_List_GetEntry, i, &att);
  402.       if (!att) break;
  403.       p->Next = np = NewPart(winnum); p = np;
  404.       p->ContentType = att->ContentType;
  405.       p->Filename    = att->FilePath;
  406.       p->Description = att->Description;     
  407.       p->Name        = att->Name;
  408.       p->IsTemp      = att->IsTemp;
  409.       if (att->IsMIME) p->EncType = WhichEncodingForFile(p->Filename, p->ContentType);
  410.       else p->EncType = ENC_UUE;
  411.    }
  412.    return first;
  413. }
  414.  
  415. ///
  416. /// FreePartsList
  417. //  Clears message parts and deletes temporary files
  418. void FreePartsList(struct WritePart *p)
  419. {
  420.    struct WritePart *np;
  421.    for (; p; p = np)
  422.    {
  423.       np = p->Next;
  424.       if (p->IsTemp) DeleteFile(p->Filename);
  425.       free(p);
  426.    }
  427. }
  428.  
  429. ///
  430. /// WR_CharOut
  431. //  Outputs a single byte of a message header
  432. LOCAL int WR_CharOut(char c)
  433. {
  434.    if (G->TTout) if (G->TTout->Header) return (int)G->TTout->Table[(UBYTE)c];
  435.    return (int)c;
  436. }
  437.  
  438. ///
  439. /// firstbad
  440. //  Returns a pointer to the first non-ascii or control character in a string
  441. LOCAL char *firstbad(char *s)
  442. {
  443.    unsigned char *dum;
  444.    for (dum = (unsigned char *)s; *dum; ++dum)
  445.       if (!isascii(WR_CharOut(*dum)) || iscntrl(WR_CharOut(*dum))) return (char *)dum;
  446.    return NULL;
  447. }
  448.  
  449. ///
  450. /// PutQP
  451. //  Outputs a base64 encoded, single byte of a message header
  452. LOCAL void PutQP(unsigned char c, FILE *fh)
  453. {
  454.    static char basis_hex[] = "0123456789ABCDEF";
  455.    fputc('=', fh);
  456.    fputc(basis_hex[c>>4], fh);
  457.    fputc(basis_hex[c&0xF], fh);
  458. }
  459.  
  460. ///
  461. /// HeaderFputs
  462. //  Outputs the value of a header line (optional QP encoding and charset translation)
  463. LOCAL void HeaderFputs(char *s, FILE *fh)
  464. {
  465.    char *firstnonascii, *wordstart;
  466.  
  467.    if (!s) return;
  468.    while ((firstnonascii = firstbad(s)))
  469.    {
  470.       for (wordstart = firstnonascii; wordstart >= s; wordstart--) if (ISpace(*wordstart)) break;
  471.       while (s <= wordstart) { fputc(WR_CharOut(*s), fh); ++s; }
  472.       fprintf(fh, "=?%s?Q?", G->TTout ? G->TTout->DestCharset : C->LocalCharset);
  473.       for (; *s && !ISpace(*s); ++s)
  474.       {
  475.          char c = (char)WR_CharOut(*s);
  476.          if (c > ' ') fputc(c, fh); else PutQP((unsigned char)c, fh);
  477.          }
  478.       fputs("?=", fh);
  479.    }
  480.    while (*s) { fputc(WR_CharOut(*s), fh); ++s; }
  481. }
  482.  
  483. ///
  484. /// EmitHeader
  485. //  Outputs a complete header line
  486. void EmitHeader(FILE *fh, char *hdr, char *body)
  487. {
  488.    fprintf(fh, "%s: ", hdr);
  489.    HeaderFputs(body, fh);
  490.    fputc('\n', fh);
  491. }
  492.  
  493. ///
  494. /// EmitRcptField
  495. //  Outputs the value of a recipient header line, one entry per line
  496. LOCAL void EmitRcptField(FILE *fh, char *body)
  497. {
  498.    char *part, *next, *bodycpy = malloc(strlen(body)+1);
  499.  
  500.    strcpy(part = bodycpy, body);
  501.    while (part)
  502.    {
  503.       if (!*part) break;
  504.       if ((next = MyStrChr(part, ','))) *next++ = 0;
  505.       HeaderFputs(Trim(part), fh);
  506.       if ((part = next)) fputs(",\n\t", fh);
  507.    }
  508.    free(bodycpy);
  509. } 
  510.  
  511. ///
  512. /// EmitRcptHeader
  513. //  Outputs a complete recipient header line
  514. LOCAL void EmitRcptHeader(FILE *fh, char *hdr, char *body)
  515. {
  516.    fprintf(fh, "%s: ", hdr);
  517.    EmitRcptField(fh, body ? body : "");
  518.    fputc('\n', fh);
  519. } 
  520.  
  521. ///
  522. /// FPutsQuoting
  523. //  Handles quotes and slashes
  524. LOCAL void FPutsQuoting(char *s, FILE *fh)
  525. {
  526.    char *end = s + strlen(s) - 1;
  527.    while (ISpace(*end) && end > s) --end;
  528.    if (*s == '\"') 
  529.    {
  530.       fputc(*s, fh);
  531.       while (*++s) 
  532.       {
  533.          if (*s == '\"') break;
  534.          if (*s == '\\') { fputc(*s, fh); ++s; if (!*s) break; }
  535.          fputc(*s, fh);
  536.       }
  537.       fputc('\"', fh);
  538.    }
  539.    else 
  540.    {
  541.       fputc('\"', fh); fputc(*s, fh);
  542.       while (*++s) 
  543.       {
  544.          if (*s == '\"' || *s == '\\') fputc('\\', fh);
  545.          fputc(*s, fh);
  546.       }
  547.       fputc('\"', fh);
  548.    }
  549. }
  550.  
  551. ///
  552. /// WriteCtypeNicely
  553. //  Outputs content type
  554. LOCAL void WriteCtypeNicely(FILE *fh, char *ct)
  555. {
  556.    char *semi, *slash, *eq, *s;
  557.  
  558.    for (s = ct; *s; ++s) if (*s == '\n') *s = ' ';
  559.    if ((semi = (char *)index(ct, ';'))) *semi = '\0';
  560.    slash = (char *)index(ct, '/');
  561.    fputs(ct, fh);
  562.    if (!slash) fputs("/unknown", fh);
  563.    while (semi) 
  564.    {
  565.       ct = semi + 1;
  566.       *semi = ';';
  567.       if ((semi = (char *) index(ct, ';'))) *semi = '\0';
  568.       if ((eq = (char *) index(ct, '='))) *eq = '\0';
  569.       fputs(";\n\t", fh);
  570.       while (ISpace(*ct)) ++ct;
  571.       fputs(ct, fh);
  572.       if (eq) 
  573.       {
  574.          s = eq;
  575.          fputc('=', fh);
  576.          ++s;
  577.          while (ISpace(*s)) ++s;
  578.          FPutsQuoting(s, fh);
  579.          *eq = '=';
  580.       }
  581.    }
  582. }
  583. ///
  584. /// WriteContentTypeAndEncoding
  585. //  Outputs content type header including parameters
  586. LOCAL void WriteContentTypeAndEncoding(FILE *fh, struct WritePart *part)
  587. {
  588.    char *p;
  589.    fputs("Content-Type: ", fh);
  590.    WriteCtypeNicely(fh, part->ContentType);
  591.    if (!strncmp(part->ContentType, "text/", 5) && (part->EncType != ENC_NONE || part->TTable))
  592.       fprintf(fh, "; charset=%s", part->TTable ? part->TTable->DestCharset : C->LocalCharset);
  593.    if ((p = part->Name)) if (*p) 
  594.    {
  595.       fputs("; name=\"", fh);
  596.       HeaderFputs(p, fh);
  597.       fputs("\"\nContent-Disposition: attachment; filename=\"", fh);
  598.       HeaderFputs(p, fh);
  599.       fputc('\"', fh);
  600.    }
  601.    fputc('\n', fh);
  602.    if (part->EncType != ENC_NONE)
  603.    {
  604.       fputs("Content-Transfer-Encoding: ", fh);
  605.       switch (part->EncType)
  606.       {
  607.          case ENC_B64:  fputs("base64\n", fh); break;
  608.          case ENC_QP:   fputs("quoted-printable\n", fh); break;
  609.          case ENC_UUE:  fputs("x-uue\n", fh); break;
  610.          case ENC_8BIT: fputs("8bit\n", fh); break;
  611.          case ENC_BIN:  fputs("binary\n", fh); break;
  612.       }
  613.    }
  614.    if ((p = part->Description)) if (*p) EmitHeader(fh, "Content-Description", p);
  615. }
  616.  
  617. ///
  618. /// WR_WriteUIItem
  619. //  Outputs a single parameter of the X-SenderInfo header
  620. LOCAL void WR_WriteUIItem(FILE *fh, int *len, char *parameter, char *value)
  621. {
  622.    int l = 6+strlen(parameter)+strlen(value);
  623.    *len += l;
  624.    fputc(';', fh); if (*len > 80) { fputs("\n  ", fh); *len = l; }
  625.    fprintf(fh, " %s=\"", parameter);
  626.    HeaderFputs(value, fh);
  627.    fputc('\"', fh);
  628. }
  629.  
  630. ///
  631. /// WR_WriteUserInfo
  632. //  Outputs X-SenderInfo header line
  633. LOCAL void WR_WriteUserInfo(FILE *fh)
  634. {
  635.    int len = 15, hits = 0;
  636.    struct ABEntry *ab = NULL;
  637.    struct MUI_NListtree_TreeNode *tn;
  638.  
  639.    if (AB_SearchEntry(MUIV_NListtree_GetEntry_ListNode_Root, C->EmailAddress, ASM_ADDRESS|ASM_USER, &hits, &tn))
  640.    {
  641.       ab = tn->tn_User;
  642.       if (ab->Type != AET_USER) ab = NULL;
  643.       else if (!*ab->Homepage && !*ab->Phone && !*ab->Street && !*ab->City && !*ab->Country && !ab->BirthDay) ab = NULL;
  644.    }
  645.    if (!ab && !*C->MyPictureURL) return;
  646.    fputs("X-SenderInfo: 1", fh);
  647.    if (*C->MyPictureURL) WR_WriteUIItem(fh, &len, "picture", C->MyPictureURL);
  648.    if (ab)
  649.    {
  650.       if (*ab->Homepage) WR_WriteUIItem(fh, &len, "homepage", ab->Homepage);
  651.       if (*ab->Street)   WR_WriteUIItem(fh, &len, "street", ab->Street);
  652.       if (*ab->City)     WR_WriteUIItem(fh, &len, "city", ab->City);
  653.       if (*ab->Country)  WR_WriteUIItem(fh, &len, "country", ab->Country);
  654.       if (*ab->Phone)    WR_WriteUIItem(fh, &len, "phone", ab->Phone);
  655.       if (ab->BirthDay)  fprintf(fh, "; dob=%ld", ab->BirthDay);
  656.    }
  657.    fputc('\n', fh);
  658. }
  659. ///
  660. /// EncodePart
  661. //  Encodes a message part
  662. LOCAL void EncodePart(FILE *ofh, struct WritePart *part)
  663. {
  664.    FILE *ifh;
  665.  
  666.    if ((ifh = fopen(part->Filename, "r")))
  667.    {
  668.       int size;
  669.       switch (part->EncType) 
  670.       {
  671.          case ENC_B64: to64(ifh, ofh, DoesNeedPortableNewlines(part->ContentType));
  672.                        break;
  673.          case ENC_QP:  toqp(ifh, ofh);
  674.                        break;
  675.          case ENC_UUE: size = FileSize(part->Filename);
  676.                        fprintf(ofh, "begin 644 %s\n", *part->Name ? part->Name : (char *)FilePart(part->Filename));
  677.                        touue(ifh, ofh);
  678.                        fprintf(ofh, "end\nsize %ld\n", size);
  679.                        break;
  680.          default:      CopyFile(NULL, ofh, NULL, ifh);
  681.       }
  682.       fclose(ifh);
  683.    }
  684. }
  685.  
  686. ///
  687. /// WR_CreateHashTable
  688. //  Creates an index table for a database file
  689. LOCAL BOOL WR_CreateHashTable(char *source, char *hashfile, char *sep)
  690. {
  691.    char buffer[SIZE_LARGE];
  692.    long fpos, l = strlen(sep);
  693.    FILE *in, *out;
  694.    BOOL success = FALSE;
  695.  
  696.    if ((in = fopen(source, "r")))
  697.    {
  698.       if ((out = fopen(hashfile, "w")))
  699.       {
  700.          fpos = 0; fwrite(&fpos, sizeof(long), 1, out);
  701.          while (fgets(buffer, SIZE_LARGE, in))
  702.             if (!strncmp(buffer, sep, l)) { fpos = ftell(in); fwrite(&fpos, sizeof(long), 1, out); }
  703.          success = TRUE;
  704.          fclose(out);
  705.       }
  706.       fclose(in);
  707.    }
  708.    return success;
  709. }
  710.  
  711. ///
  712. /// WR_AddTagline
  713. //  Randomly selects a tagline and writes it to the message file
  714. LOCAL void WR_AddTagline(FILE *fh_mail)
  715. {
  716.    FILE *fh_tag, *fh_hash;
  717.    char buf[SIZE_LARGE], hashfile[SIZE_PATHFILE];
  718.    long fpos, hsize;
  719.  
  720.    if (*C->TagsFile) 
  721.    {
  722.       sprintf(hashfile, "%s.hsh", C->TagsFile);
  723.       if (getft(C->TagsFile) > getft(hashfile)) WR_CreateHashTable(C->TagsFile, hashfile, C->TagsSeparator);
  724.       if ((fh_tag = fopen(C->TagsFile, "r")))
  725.       {
  726.          if ((fh_hash = fopen(hashfile, "r")))
  727.          {
  728.             fseek(fh_hash, 0, SEEK_END); hsize = ftell(fh_hash);
  729.             if ((hsize = hsize/sizeof(long)) > 1)
  730.             {
  731.                fpos = (((long)rand())%hsize)*sizeof(long);
  732.                fseek(fh_hash, fpos, SEEK_SET); fread(&fpos, sizeof(long), 1, fh_hash);
  733.                fseek(fh_tag, fpos, SEEK_SET);
  734.                if (GetLine(fh_tag, buf, SIZE_LARGE)) fputs(buf, fh_mail);
  735.                while (GetLine(fh_tag, buf, SIZE_LARGE))
  736.                   if (!strncmp(buf, C->TagsSeparator, strlen(C->TagsSeparator))) break;
  737.                   else fprintf(fh_mail, "\n%s", buf);
  738.             }
  739.             fclose(fh_tag);
  740.          }
  741.          else ER_NewError(GetStr(MSG_ER_CantOpenFile), hashfile, NULL);
  742.       }
  743.       else ER_NewError(GetStr(MSG_ER_CantOpenFile), C->TagsFile, NULL);
  744.    }
  745. }
  746.  
  747. ///
  748. /// WR_WriteSignature
  749. //  Writes signature to the message file
  750. LOCAL void WR_WriteSignature(FILE *out, int signat)
  751. {
  752.    FILE *in;
  753.    int ch;
  754.    if ((in = fopen(CreateFilename(SigNames[signat]), "r")))
  755.    {
  756.       fputs("-- \n", out);
  757.       while ((ch = fgetc(in)) != EOF)
  758.       {
  759.          if (ch == '%')
  760.          {
  761.             ch = fgetc(in);
  762.             if (ch == 't') { WR_AddTagline(out); continue; }
  763.             if (ch == 'e') { CopyFile(NULL, out, "ENV:SIGNATURE", NULL); continue; }
  764.             ungetc(ch, in); ch = '%';
  765.          }
  766.          fputc(ch, out);
  767.       }
  768.       fclose(in);
  769.    }
  770. }
  771.  
  772. ///
  773. /// WR_AddSignature
  774. //  Adds a signature to the end of the file
  775. void WR_AddSignature(char *mailfile, int signat)
  776. {
  777.    FILE *fh_mail;
  778.    BOOL addline = FALSE;
  779.  
  780.    if (signat == -1) 
  781.    {
  782.       signat = C->UseSignature ? 1 : 0;
  783.       if ((fh_mail = fopen(mailfile, "r")))
  784.       {
  785.          fseek(fh_mail, -1, SEEK_END);
  786.          addline = fgetc(fh_mail) != '\n';
  787.          fclose(fh_mail);
  788.       }
  789.    }
  790.    if ((fh_mail = fopen(mailfile, "a")))
  791.    {
  792.       if (addline) fputc('\n', fh_mail);
  793.       if (signat) WR_WriteSignature(fh_mail, signat-1);
  794.       fclose(fh_mail);
  795.    }
  796. }
  797.  
  798. ///
  799. /// WR_Anonymize
  800. //  Inserts recipient header field for remailer service
  801. LOCAL void WR_Anonymize(FILE *fh, char *body)
  802. {
  803.    char *ptr;
  804.  
  805.    for (ptr = C->RMCommands; *ptr; ptr++)
  806.    {
  807.       if (*ptr == '\\') if (*(ptr+1) == 'n') { ptr++; fputs("\n", fh); continue; }
  808.       if (*ptr == '%') if (*(ptr+1) == 's') { ptr++; EmitRcptField(fh, body); continue; }
  809.       fputc(*ptr, fh);
  810.    }
  811.    fputs("\n", fh);
  812. }
  813.  
  814. ///
  815. /// WR_GetPGPId
  816. //  Gets PGP key id for a person
  817. LOCAL char *WR_GetPGPId(struct Person *pe)
  818. {
  819.    int hits;
  820.    char *pgpid = NULL;
  821.    struct MUI_NListtree_TreeNode *tn;
  822.    if (!AB_SearchEntry(MUIV_NListtree_GetEntry_ListNode_Root, pe->RealName, ASM_REALNAME|ASM_USER, &hits, &tn))
  823.         AB_SearchEntry(MUIV_NListtree_GetEntry_ListNode_Root, pe->Address, ASM_ADDRESS|ASM_USER, &hits, &tn);
  824.    if (hits && tn && tn->tn_User)
  825.         if (((struct ABEntry *)(tn->tn_User))->PGPId[0])
  826.             pgpid = ((struct ABEntry *)(tn->tn_User))->PGPId;
  827.    return pgpid;
  828. }
  829. ///
  830. /// WR_GetPGPIds
  831. //  Collects PGP key ids for all persons in a recipient field
  832. LOCAL char *WR_GetPGPIds(char *source, char *ids)
  833. {
  834.    struct Person pe;
  835.    char *next, *pid;
  836.  
  837.    for (; source; source = next)
  838.    {
  839.       if (!*source) break;
  840.       if ((next = MyStrChr(source, ','))) *next++ = 0;
  841.       ExtractAddress(source, &pe);
  842.       if (!(pid = WR_GetPGPId(&pe)))
  843.       {
  844.          pid = pe.RealName[0] ? pe.RealName : pe.Address;
  845.          ER_NewError(GetStr(MSG_ER_ErrorNoPGPId), source, pid);
  846.       }
  847.       ids = StrBufCat(ids, (G->PGPVersion == 5) ? "-r \"" : "\"");
  848.       ids = StrBufCat(ids, pid);
  849.       ids = StrBufCat(ids, "\" ");
  850.    }
  851.    return ids;
  852. }
  853. ///
  854.  
  855. /// WR_Bounce
  856. //  Bounce message: inserts resent-headers while copying the message
  857. LOCAL BOOL WR_Bounce(FILE *fh, struct Compose *comp)
  858. {
  859.    FILE *oldfh;
  860.    if ((oldfh = fopen(GetMailFile(NULL, NULL, comp->OrigMail), "r")))
  861.    {
  862.       BOOL infield = FALSE, inbody = FALSE;
  863.       char buf[SIZE_LINE];
  864.       while (fgets(buf, SIZE_LINE, oldfh))
  865.       {
  866.          if (*buf == '\n' && !inbody)
  867.          {
  868.             inbody = TRUE;
  869.             EmitRcptHeader(fh, "To", comp->MailTo);
  870.             EmitHeader(fh, "Resent-From", BuildAddrName(C->EmailAddress, C->RealName));
  871.             EmitHeader(fh, "Resent-Date", GetDateTime());
  872.          }
  873.          if (!ISpace(*buf) && !inbody) infield = !strnicmp(buf, "to:", 3);
  874.          if (!infield || inbody) fputs(buf, fh);
  875.       }
  876.       fclose(oldfh);
  877.       return TRUE;
  878.    }
  879.    return FALSE;
  880. }
  881.  
  882. ///
  883. /// WR_SaveDec
  884. //  Creates decrypted copy of a PGP encrypted message
  885. LOCAL BOOL WR_SaveDec(FILE *fh, struct Compose *comp)
  886. {
  887.    FILE *oldfh;
  888.    if ((oldfh = fopen(GetMailFile(NULL, NULL, comp->OrigMail), "r")))
  889.    {
  890.       BOOL infield = FALSE;
  891.       char buf[SIZE_LINE];
  892.       while (fgets(buf, SIZE_LINE, oldfh))
  893.       {
  894.          if (*buf == '\n') { fprintf(fh, "X-YAM-Decrypted: PGP; %s\n", GetDateTime()); break; }
  895.          if (!ISpace(*buf)) infield = !strnicmp(buf, "content-type:", 13)
  896.                                    || !strnicmp(buf, "content-transfer-encoding", 25)
  897.                                    || !strnicmp(buf, "mime-version:", 13);
  898.          if (!infield) fputs(buf, fh);
  899.       }
  900.       fclose(oldfh);
  901.       return TRUE;
  902.    }
  903.    return FALSE;
  904. }
  905.  
  906. ///
  907. /// WR_EmitExtHeader
  908. //  Outputs special X-YAM-Header lines to remember user-defined headers
  909. LOCAL void WR_EmitExtHeader(FILE *fh, struct Compose *comp)
  910. {
  911.    if (*comp->ExtHeader)
  912.    {
  913.       char *p, ch = '\n';
  914.       for (p = comp->ExtHeader; *p; ++p)
  915.       {
  916.          if (ch == '\n') fputs("X-YAM-Header-", fh);
  917.          if (*p != '\\') ch = *p;
  918.          else if (*++p == '\\') ch = '\\'; else if (*p == 'n') ch = '\n';
  919.          fputc(ch, fh);
  920.       }
  921.       if (ch != '\n') fputc('\n', fh);
  922.    }
  923. }
  924.  
  925. ///
  926. /// WR_ComposeReport
  927. //  Assembles the parts of a message disposition notification
  928. LOCAL const char *MIMEwarn = "Warning: This is a message in MIME format. Your mail reader does not\n"
  929.                              "support MIME. Some parts of this message will be readable as plain text.\n"
  930.                              "To see the rest, you will need to upgrade your mail reader. Following are\n"
  931.                              "some URLs where you can find MIME-capable mail programs for common platforms:\n\n"
  932.                              "  Amiga............: YAM          http://www.yam.ch/\n"
  933.                              "  Unix.............: Metamail     ftp://ftp.bellcore.com/nsb/\n"
  934.                              "  Windows/Macintosh: Eudora       http://www.qualcomm.com/\n\n"
  935.                              "General info about MIME can be found at:\n\n"
  936.                              "http://www.cis.ohio-state.edu/hypertext/faq/usenet/mail/mime-faq/top.html\n\n";
  937. LOCAL const char *PGPwarn  = "The following body part contains a PGP encrypted message. Either your\n"
  938.                              "mail reader doesn't support MIME/PGP as specified in RFC 2015, or\n"
  939.                              "the message was encrypted for someone else. To read the encrypted\n"
  940.                              "message, run the next body part through Pretty Good Privacy.\n\n";
  941. LOCAL void WR_ComposeReport(FILE *fh, struct Compose *comp, char *boundary)
  942. {
  943.    struct WritePart *p;
  944.    fprintf(fh, "Content-type: multipart/report; report-type=disposition-notification; boundary=\"%s\"\n\n", boundary);
  945.    for (p = comp->FirstPart; p; p = p->Next)
  946.    {
  947.       fprintf(fh, "\n--%s\n", boundary);
  948.       WriteContentTypeAndEncoding(fh, p);
  949.       fputs("\n", fh);
  950.       EncodePart(fh, p);
  951.    }
  952.    fprintf(fh, "\n--%s--\n\n", boundary);
  953. }
  954.  
  955. LOCAL void SetDefaultSecurity(struct Compose *comp)
  956. {
  957. STRPTR CheckThese[3],buf;
  958. int i, Security=0;
  959. BOOL FirstAddr=TRUE;
  960.  
  961.     /* collect address pointers for easier iteration */
  962.     CheckThese[0] = comp->MailTo;
  963.     CheckThese[1] = comp->MailCC;
  964.     CheckThese[2] = comp->MailBCC;
  965.  
  966.     /* go through all addresses */
  967.     for(i=0; i<3; i++)
  968.     {
  969.         if(CheckThese[i] == NULL) continue;        // skip empty fields
  970.         // copy string as strtok() will modify it
  971.         if((buf = (STRPTR)strdup(CheckThese[i])))
  972.         {
  973.         int hits = 0, currsec;
  974.         STRPTR in=buf,s,t;
  975.         struct MUI_NListtree_TreeNode *tn;
  976.  
  977.             // loop through comma-separated addresses in string
  978.             while((s = strtok_r((char **)&in,",")))
  979.             {
  980.                 while((t = strtok_r((char **)&s," ()<>")))
  981.                     if(strchr(t,'@')) break;
  982.  
  983.                 if(!t) continue; // can't find address for this entry - shouldn't happen
  984.  
  985.                 if(AB_SearchEntry(MUIV_NListtree_GetEntry_ListNode_Root, t, ASM_ADDRESS|ASM_USER|ASM_COMPLETE, &hits, &tn) && (NULL != tn->tn_User))
  986.                     currsec = ((struct ABEntry*)(tn->tn_User))->DefSecurity;    // get default from entry
  987.                 else
  988.                     currsec = 0;        // entry not in address book -> no security
  989.  
  990.                 if(currsec != Security)
  991.                 {
  992.                     if(FirstAddr)        // first address' setting is always used
  993.                     {
  994.                         FirstAddr = FALSE;
  995.                         Security = currsec;    // assume as default
  996.                     } else                        // conflict: two addresses have different defaults
  997.                     {
  998.                         Security = MUI_RequestA(G->App, NULL, 0, NULL, GetStr(MSG_WR_DefSecurityConflictGads),
  999.                                                         GetStr(MSG_WR_DefSecurityConflict),NULL);
  1000.                         if(SEC_NONE == Security) Security = SEC_MAXDUMMY-1;    // correct 1..N numbering of requester buttons
  1001.                         else Security--;
  1002.                         break;    // terminate recipient loop
  1003.                     }
  1004.                 }
  1005.             }
  1006.             free(buf);
  1007.         }
  1008.     }
  1009.     comp->Security = Security;
  1010. }
  1011.  
  1012. ///
  1013. /// WR_ComposePGP
  1014. //  Creates a signed and/or encrypted PGP/MIME message
  1015. LOCAL BOOL WR_ComposePGP(FILE *fh, struct Compose *comp, char *boundary)
  1016. {
  1017.    int sec = comp->Security;
  1018.    BOOL success = FALSE;
  1019.    struct WritePart pgppart, *firstpart = comp->FirstPart;
  1020.    char *ids = AllocStrBuf(SIZE_DEFAULT), pgpfile[SIZE_PATHFILE], options[SIZE_LARGE];
  1021.    struct TempFile *tf, *tf2;
  1022.  
  1023.    pgppart.Filename = pgpfile; *pgpfile = 0;
  1024.    pgppart.EncType = ENC_NONE;
  1025.    if((sec == SEC_ENCRYPT) || (sec == SEC_BOTH))
  1026.    {
  1027.       if (comp->MailTo) ids = WR_GetPGPIds(comp->MailTo, ids);
  1028.       if (comp->MailCC) ids = WR_GetPGPIds(comp->MailCC, ids);
  1029.       if (comp->MailBCC) ids = WR_GetPGPIds(comp->MailBCC, ids);
  1030.       if (C->EncryptToSelf && *C->MyPGPID)
  1031.       {
  1032.          if (G->PGPVersion == 5) ids = StrBufCat(ids, "-r ");
  1033.          ids = StrBufCat(ids, C->MyPGPID);
  1034.       }
  1035.    }
  1036.    tf2 = OpenTempFile(NULL);
  1037.    if ((tf = OpenTempFile("w")))
  1038.    {
  1039.       WriteContentTypeAndEncoding(tf->FP, firstpart);
  1040.       fputc('\n', tf->FP);
  1041.       EncodePart(tf->FP, firstpart);
  1042.       fclose(tf->FP); tf->FP = NULL;
  1043.       ConvertCRLF(tf->Filename, tf2->Filename, TRUE);
  1044.       CloseTempFile(tf);
  1045.       sprintf(pgpfile, "%s.asc", tf2->Filename);
  1046.       if((sec == SEC_SIGN) || (sec == SEC_BOTH)) PGPGetPassPhrase();
  1047.       switch (sec)
  1048.       {
  1049.          case SEC_SIGN :
  1050.             fprintf(fh, "Content-type: multipart/signed; boundary=\"%s\"; micalc=pgp-md5; protocol=\"application/pgp-signature\"\n\n%s\n--%s\n", boundary, MIMEwarn, boundary);
  1051.             WriteContentTypeAndEncoding(fh, firstpart);
  1052.             fputc('\n', fh);
  1053.             EncodePart(fh, firstpart);
  1054.             fprintf(fh, "\n--%s\nContent-Type: application/pgp-signature\n\n", boundary);
  1055.             sprintf(options, (G->PGPVersion == 5) ? "-ab %s +batchmode=1 +force" : "-sab %s +bat +f", tf2->Filename);
  1056.             if (*C->MyPGPID) { strcat(options, " -u "); strcat(options, C->MyPGPID); }
  1057.             if (!PGPCommand((G->PGPVersion == 5) ? "pgps" : "pgp", options, 0)) success = TRUE;
  1058.             break;
  1059.          case SEC_ENCRYPT :
  1060.             fprintf(fh, "Content-type: multipart/encrypted; boundary=\"%s\"; protocol=\"application/pgp-encrypted\"\n\n%s\n--%s\n", boundary, MIMEwarn, boundary);
  1061.             fprintf(fh, "Content-Type: application/pgp-encrypted\n\nVersion: 1\n\n%s\n--%s\nContent-Type: application/octet-stream\n\n", PGPwarn, boundary);
  1062.             sprintf(options, (G->PGPVersion == 5) ? "-a %s %s +batchmode=1 +force" : "-ea %s %s +bat +f", tf2->Filename, ids);
  1063.             if (!PGPCommand((G->PGPVersion == 5) ? "pgpe" : "pgp", options, 0)) success = TRUE;
  1064.             break;
  1065.          case SEC_BOTH :
  1066.             fprintf(fh, "Content-type: multipart/encrypted; boundary=\"%s\"; protocol=\"application/pgp-encrypted\"\n\n%s\n--%s\n", boundary, MIMEwarn, boundary);
  1067.             fprintf(fh, "Content-Type: application/pgp-encrypted\n\nVersion: 1\n\n%s\n--%s\nContent-Type: application/octet-stream\n\n", PGPwarn, boundary);
  1068.             sprintf(options, (G->PGPVersion == 5) ? "-a %s %s +batchmode=1 +force -s" : "-sea %s %s +bat +f", tf2->Filename, ids);
  1069.             if (*C->MyPGPID) { strcat(options, " -u "); strcat(options, C->MyPGPID); }
  1070.             if (!PGPCommand((G->PGPVersion == 5) ? "pgpe" : "pgp", options, 0)) success = TRUE;
  1071.             break;
  1072.       }
  1073.       if (success) EncodePart(fh, &pgppart);
  1074.    }
  1075.    CloseTempFile(tf2);
  1076.    if (*pgpfile) remove(pgpfile);
  1077.    fprintf(fh, "\n--%s--\n\n", boundary);
  1078.    FreeStrBuf(ids);
  1079.    PGPClearPassPhrase(!success);
  1080.    return success;
  1081. }
  1082.  
  1083. ///
  1084. /// WR_ComposeMulti
  1085. //  Assembles a multipart message
  1086. LOCAL void WR_ComposeMulti(FILE *fh, struct Compose *comp, char *boundary)
  1087. {
  1088.    struct WritePart *p;
  1089.    fprintf(fh, "Content-type: multipart/mixed; boundary=\"%s\"\n\n", boundary);
  1090.    fputs(MIMEwarn, fh);
  1091.    for (p = comp->FirstPart; p; p = p->Next)
  1092.    {
  1093.       fprintf(fh, "\n--%s\n", boundary);
  1094.       WriteContentTypeAndEncoding(fh, p);
  1095.       if (comp->Security == SEC_SENDANON) WR_Anonymize(fh, comp->MailTo);
  1096.       fputs("\n", fh);
  1097.       EncodePart(fh, p);
  1098.    }
  1099.    fprintf(fh, "\n--%s--\n\n", boundary);
  1100. }
  1101.  
  1102. ///
  1103. /// WriteOutMessage
  1104. //  Outputs header and body of a new message
  1105. BOOL WriteOutMessage(struct Compose *comp)
  1106. {
  1107. BOOL success=FALSE;
  1108. struct TempFile *tf=NULL;
  1109. FILE *fh = comp->FH;
  1110. struct WritePart *firstpart = comp->FirstPart;
  1111. char boundary[SIZE_DEFAULT], options[SIZE_DEFAULT], *rcptto;
  1112.  
  1113.    if (comp->Mode == NEW_BOUNCE)
  1114.    {
  1115.       if (comp->DelSend) EmitHeader(fh, "X-YAM-Options", "delsent");
  1116.       return WR_Bounce(fh, comp);
  1117.    }
  1118.    if (comp->Mode == NEW_SAVEDEC) if (!WR_SaveDec(fh, comp)) return FALSE; else goto mimebody;
  1119.    if (!firstpart) return FALSE;
  1120.  
  1121.    // encrypted multipart message requested?
  1122.    if (firstpart->Next && comp->Security > SEC_NONE  && comp->Security <= SEC_BOTH)
  1123.    {
  1124.       struct Compose tcomp;
  1125.       FILE *tfh;
  1126.  
  1127.          if((tf = OpenTempFile(NULL)) && (tfh = fopen(tf->Filename,"w")))
  1128.          {
  1129.             memcpy(&tcomp,comp,sizeof(tcomp));   // clone struct Compose
  1130.             tcomp.FH = tfh;                      // set new filehandle
  1131.             tcomp.Security = SEC_NONE;           // temp msg gets attachments and no security
  1132.  
  1133.             // clear a few other fields to avoid redundancies
  1134.             tcomp.MailCC = tcomp.MailBCC = tcomp.ExtHeader = NULL;
  1135.             tcomp.Receipt = tcomp.Importance = 0;
  1136.             tcomp.DelSend = tcomp.UserInfo = FALSE;
  1137.  
  1138.             if(WriteOutMessage(&tcomp))    // recurse!
  1139.             {
  1140.                struct WritePart *tpart = comp->FirstPart; // save parts list so we're able to recover from a calloc() error
  1141.  
  1142.                // replace with single new part
  1143.                if((comp->FirstPart = (struct WritePart *)calloc(1,sizeof(struct WritePart))))
  1144.                {
  1145.                   comp->FirstPart->EncType = tpart->EncType;          // reuse encoding
  1146.                   FreePartsList(tpart);                               // free old parts list
  1147.                   comp->FirstPart->ContentType = "message/rfc822";    // the only part is an email message
  1148.                   comp->FirstPart->Filename = tf->Filename;           // set filename to tempfile
  1149.                   comp->Signature = 0;                                // only use sig in enclosed mail
  1150.                } else
  1151.                {
  1152.                   // no errormsg here - the window probably won't open anyway...
  1153.                   DisplayBeep(NULL);
  1154.                   comp->FirstPart = tpart;     // just restore old parts list
  1155.                   comp->Security = 0;          // switch off security
  1156.                   // we'll most likely get more errors further down :(
  1157.                }
  1158.          } else
  1159.          {
  1160.             ER_NewError(GetStr(MSG_ER_PGPMultipart),NULL,NULL);
  1161.             comp->Security = 0;
  1162.          }
  1163.          fclose(tfh);
  1164.          } else
  1165.          {
  1166.             ER_NewError(GetStr(MSG_ER_PGPMultipart),NULL,NULL);
  1167.             comp->Security = 0;
  1168.          }
  1169.    }
  1170.    *options = 0;
  1171.    if (comp->DelSend) strcat(options, ",delsent");
  1172.    if (comp->Security) sprintf(&options[strlen(options)], ",%s", SecCodes[comp->Security]);
  1173.    if (comp->Signature) sprintf(&options[strlen(options)], ",sigfile%ld", comp->Signature-1);
  1174.    if (*options) EmitHeader(fh, "X-YAM-Options", &options[1]);
  1175.    EmitHeader(fh, "From", comp->From ? comp->From : BuildAddrName(C->EmailAddress, C->RealName));
  1176.    if (comp->ReplyTo) EmitHeader(fh, "Reply-To", comp->ReplyTo);
  1177.    if (comp->MailTo) EmitRcptHeader(fh, "To", comp->Security == 4 ? C->ReMailer : comp->MailTo);
  1178.    if (comp->MailCC) EmitRcptHeader(fh, "CC", comp->MailCC);
  1179.    if (comp->MailBCC) EmitRcptHeader(fh, "BCC", comp->MailBCC);
  1180.    EmitHeader(fh, "Date", GetDateTime());
  1181.    fprintf(fh, "Message-ID: <%s>\n", NewID(True));
  1182.    if (comp->IRTMsgID) EmitHeader(fh, "In-Reply-To", comp->IRTMsgID);
  1183.    rcptto = comp->ReplyTo ? comp->ReplyTo : (comp->From ? comp->From : C->EmailAddress);
  1184.    if (comp->Receipt & 1) EmitHeader(fh, "Return-Receipt-To", rcptto);
  1185.    if (comp->Receipt & 2) EmitHeader(fh, "Disposition-Notification-To", rcptto);
  1186.    if (comp->Importance) EmitHeader(fh, "Importance", comp->Importance == 1 ? "High" : "Low");
  1187.    fprintf(fh, "X-Mailer: YAM %s AmigaOS E-Mail Client (c) 1995-2000 by Marcel Beck  http://www.yam.ch/\n", __YAM_VERSION);
  1188.    if (comp->UserInfo) WR_WriteUserInfo(fh);
  1189.    if (*C->Organization) EmitHeader(fh, "Organization", C->Organization);
  1190.    if (*comp->Subject) EmitHeader(fh, "Subject", comp->Subject);
  1191.    if (comp->ExtHeader) WR_EmitExtHeader(fh, comp);
  1192.  
  1193. mimebody:
  1194.    fputs("MIME-Version: 1.0\n", fh);
  1195.    sprintf(boundary, "BOUNDARY.%s", NewID(False));
  1196.    if (comp->ReportType > 0)
  1197.    {
  1198.       WR_ComposeReport(fh, comp, boundary);
  1199.       success = TRUE;
  1200.    } else if (comp->Security > SEC_NONE && comp->Security <= SEC_BOTH)
  1201.    {
  1202.       success = WR_ComposePGP(fh, comp, boundary);
  1203.    } else if (firstpart->Next)
  1204.    {
  1205.       WR_ComposeMulti(fh, comp, boundary);
  1206.       success = TRUE;
  1207.    } else
  1208.    {
  1209.       WriteContentTypeAndEncoding(fh, firstpart);
  1210.       if (comp->Security == SEC_SENDANON && comp->OldSecurity != SEC_SENDANON)
  1211.          WR_Anonymize(fh, comp->MailTo);
  1212.       fputs("\n", fh);
  1213.       EncodePart(fh, firstpart);
  1214.         success = TRUE;
  1215.    }
  1216.    CloseTempFile(tf);
  1217.    return success;
  1218. }
  1219.  
  1220. ///
  1221. /// WR_AutoSaveFile
  1222. //  Returns filename of the auto-save file
  1223. char *WR_AutoSaveFile(int winnr)
  1224. {
  1225.    static char fname[SIZE_PATHFILE];
  1226.    strmfp(fname, G->ProgDir, ".autosave");
  1227.    strcat(fname, itoa(winnr));
  1228.    strcat(fname, ".txt");
  1229.    return fname;
  1230. }
  1231. ///
  1232.  
  1233. /*** Buttons ***/
  1234. /// WR_NewMail
  1235. //  Validates write window options and generates a new message
  1236. void WR_NewMail(int mode, int winnum)
  1237. {
  1238.    struct Compose comp;
  1239.    char *addr, *er;
  1240.    static struct Mail mail;
  1241.    struct Mail *new = NULL, *mlist[3];
  1242.    int i, att = 0;
  1243.    struct WR_ClassData *wr = G->WR[winnum];
  1244.    struct WR_GUIData *gui = &wr->GUI;
  1245.    struct Folder *outfolder = FO_GetFolderByType(FT_OUTGOING, NULL);
  1246.    long winopen;
  1247.  
  1248.    get(gui->WI, MUIA_Window_Open, &winopen);
  1249.    if (winopen) set(gui->RG_PAGE, MUIA_Group_ActivePage, 0);
  1250.    /* Workaround for a MUI bug */
  1251.  
  1252.    clear(&mail, sizeof(struct Mail));
  1253.    clear(&comp, sizeof(struct Compose));
  1254.    mlist[0] = (struct Mail *)1; mlist[1] = NULL;
  1255.    get(gui->ST_TO, MUIA_String_Contents, &addr);
  1256.    er = GetStr(MSG_WR_ErrorNoRcpt);
  1257.    if (!*addr) if (MUI_Request(G->App, gui->WI, 0, NULL, GetStr(MSG_WR_NoRcptReqGad), er)) mode = WRITE_HOLD;
  1258.       else return;
  1259.    get(gui->ST_SUBJECT, MUIA_String_Contents, &comp.Subject);
  1260.    if (wr->Mode != NEW_BOUNCE && *comp.Subject == '\0')
  1261.    {
  1262.       if (C->WarnSubject && MUI_Request(G->App, gui->WI, 0, NULL, GetStr(MSG_WR_NoSubjectReqGad), GetStr(MSG_NoSubjectReq)))
  1263.       {
  1264.          set(gui->WI, MUIA_Window_ActiveObject, gui->ST_SUBJECT);
  1265.          return;
  1266.       }
  1267.    }
  1268.    Busy(GetStr(MSG_BusyComposing), "", 0, 0);
  1269.    comp.Mode = wr->Mode;
  1270.    comp.OrigMail = wr->Mail;
  1271.    comp.OldSecurity = wr->OldSecurity;
  1272.    wr->ListEntry = NULL;
  1273.    if (*addr) if (!(comp.MailTo = WR_ExpandAddresses(winnum, addr, FALSE, FALSE))) goto skip;
  1274.    if (wr->Mode != NEW_BOUNCE)
  1275.    {
  1276.       get(gui->ST_CC, MUIA_String_Contents, &addr);
  1277.       if (*addr) if (!(comp.MailCC = WR_ExpandAddresses(winnum, addr, FALSE, FALSE))) goto skip;
  1278.       get(gui->ST_BCC, MUIA_String_Contents, &addr);
  1279.       if (*addr) if (!(comp.MailBCC = WR_ExpandAddresses(winnum, addr, FALSE, FALSE))) goto skip;
  1280.       get(gui->ST_FROM, MUIA_String_Contents, &addr);
  1281.       if (*addr) if (!(comp.From = WR_ExpandAddresses(winnum, addr, FALSE, TRUE))) goto skip;
  1282.       get(gui->ST_REPLYTO, MUIA_String_Contents, &addr);
  1283.       if (*addr) if (!(comp.ReplyTo = WR_ExpandAddresses(winnum, addr, FALSE, TRUE))) goto skip;
  1284.       get(gui->ST_EXTHEADER, MUIA_String_Contents, &comp.ExtHeader);
  1285.       if (wr->ListEntry)
  1286.       {
  1287.          if (wr->ListEntry->Address[0]) comp.ReplyTo = StrBufCpy(NULL, wr->ListEntry->Address);
  1288.          if (wr->ListEntry->RealName[0]) comp.From = StrBufCpy(comp.From, BuildAddrName(C->EmailAddress, wr->ListEntry->RealName));
  1289.       }
  1290.       if (wr->MsgID[0]) comp.IRTMsgID = wr->MsgID;
  1291.       comp.Importance = 1-GetMUICycle(gui->CY_IMPORTANCE);
  1292.       if (GetMUICheck(gui->CH_RECEIPT)) comp.Receipt |= 1;
  1293.       if (GetMUICheck(gui->CH_DISPNOTI)) comp.Receipt |= 2;
  1294.       comp.Signature = GetMUIRadio(gui->RA_SIGNATURE);
  1295.       if((comp.Security = GetMUIRadio(gui->RA_SECURITY)) == SEC_DEFAULTS)
  1296.             SetDefaultSecurity(&comp);
  1297.       comp.DelSend = GetMUICheck(gui->CH_DELSEND);
  1298.       comp.UserInfo = GetMUICheck(gui->CH_ADDINFO);
  1299.       get(gui->LV_ATTACH, MUIA_List_Entries, &att);
  1300.       EditorToFile(gui->TE_EDIT, G->WR_Filename[winnum], G->TTout);
  1301.       comp.FirstPart = BuildPartsList(winnum);
  1302.       comp.FirstPart->TTable = G->TTout;
  1303.    }
  1304.  
  1305.    if (wr->Mode == NEW_EDIT)
  1306.    {
  1307.       struct Mail *edmail = wr->Mail;
  1308.       outfolder = edmail->Folder;
  1309.       if (MailExists(edmail, NULL))
  1310.       {
  1311.          comp.FH = fopen(GetMailFile(NULL, outfolder, edmail), "w");
  1312.          strcpy(mail.MailFile, edmail->MailFile);
  1313.       }
  1314.       else
  1315.       {
  1316.          wr->Mode = NEW_NEW;
  1317.          comp.FH = fopen(MA_NewMailFile(outfolder, mail.MailFile, 0), "w");
  1318.       }
  1319.    }
  1320.    else comp.FH = fopen(MA_NewMailFile(outfolder, mail.MailFile, 0), "w");
  1321.    if (comp.FH)
  1322.    {
  1323.       struct MailInfo *mi;
  1324.       struct ExtendedMail *email;
  1325.       int stat = mode == WRITE_HOLD ? STATUS_HLD : STATUS_WFS;
  1326.       BOOL done = WriteOutMessage(&comp);
  1327.       fclose(comp.FH);
  1328.       if (!done) { DeleteFile(GetMailFile(NULL, outfolder, &mail)); goto skip; }
  1329.       if (wr->Mode != NEW_BOUNCE) EndNotify(&G->WR_NRequest[winnum]);
  1330.       if ((email = MA_ExamineMail(outfolder, mail.MailFile, Status[stat], FALSE)))
  1331.       {
  1332.          new = AddMailToList((struct Mail *)email, outfolder);
  1333.          MA_FreeEMailStruct(email);
  1334.          if (FO_GetCurrentFolder() == outfolder) DoMethod(G->MA->GUI.NL_MAILS, MUIM_NList_InsertSingle, new, MUIV_NList_Insert_Sorted);
  1335.          MA_SetMailStatus(new, stat);
  1336.          if (wr->Mode == NEW_EDIT)
  1337.          {
  1338.             mi = GetMailInfo(wr->Mail);
  1339.             if (mi->Display) DoMethod(G->MA->GUI.NL_MAILS, MUIM_NList_Remove, mi->Pos);
  1340.             RemoveMailFromList(wr->Mail);
  1341.             wr->Mail = new;
  1342.             if (wr->ReadwinNum != -1) RE_ReadMessage(wr->ReadwinNum, new);
  1343.          }
  1344.       }
  1345.       if (wr->Mode != NEW_NEW)
  1346.       {
  1347.          struct Mail *m, **ml = wr->MList ? wr->MList : mlist;
  1348.          mlist[2] = wr->Mail;
  1349.          for (i = 0; i < (int)ml[0]; i++)
  1350.          {
  1351.             m = ml[i+2];
  1352.             if (!Virtual(m)) if (m->Folder->Type != FT_OUTGOING && m->Folder->Type != FT_SENT)
  1353.             {
  1354.                if (m->Status == STATUS_NEW || m->Status == STATUS_UNR)
  1355.                {
  1356.                   int mdntype = wr->Mode == NEW_REPLY ? MDN_DISP : MDN_PROC;
  1357.                   if (winnum == 2) mdntype |= MDN_AUTOACT;
  1358.                   RE_DoMDN(mdntype, m, FALSE);
  1359.                }
  1360.                switch (wr->Mode)
  1361.                {
  1362.                   case NEW_REPLY:  MA_SetMailStatus(m, STATUS_RPD);
  1363.                                    DisplayStatistics(m->Folder); break;
  1364.                   case NEW_FORWARD:
  1365.                   case NEW_BOUNCE: MA_SetMailStatus(m, STATUS_FWD);
  1366.                                    DisplayStatistics(m->Folder); break;
  1367.                }
  1368.             }
  1369.          }
  1370.       }
  1371.       switch (wr->Mode)
  1372.       {
  1373.          case NEW_NEW:     AppendLog(10, GetStr(MSG_LOG_Creating),   AddrName(new->To), new->Subject, (void *)att, ""); break;
  1374.          case NEW_REPLY:   AppendLog(11, GetStr(MSG_LOG_Replying),   AddrName(wr->MList[2]->From), wr->MList[2]->Subject, "", ""); break;
  1375.          case NEW_FORWARD: AppendLog(12, GetStr(MSG_LOG_Forwarding), AddrName(wr->MList[2]->From), wr->MList[2]->Subject, AddrName(new->To), ""); break;
  1376.          case NEW_BOUNCE:  AppendLog(13, GetStr(MSG_LOG_Bouncing),   AddrName(wr->Mail->From), wr->Mail->Subject, AddrName(new->To), ""); break;
  1377.          case NEW_EDIT:    AppendLog(14, GetStr(MSG_LOG_Editing),    AddrName(new->From), AddrName(new->To), new->Subject, ""); break;
  1378.       }
  1379.       MA_StartMacro(MACRO_POSTWRITE, itoa(winnum));
  1380.    }
  1381.    else ER_NewError(GetStr(MSG_ER_CreateMailError), NULL, NULL);
  1382.    FreePartsList(comp.FirstPart);
  1383.    if (wr->MList) free(wr->MList);
  1384.    if (mode == WRITE_SEND && new && !G->TR)
  1385.    {
  1386.       set(gui->WI, MUIA_Window_Open, FALSE);
  1387.       mlist[2] = new; MA_SendMList(mlist);
  1388.    }
  1389.    DeleteFile(WR_AutoSaveFile(winnum));
  1390.    DisposeModulePush(&G->WR[winnum]);
  1391. skip:
  1392.    FreeStrBuf(comp.MailTo);
  1393.    FreeStrBuf(comp.MailCC);
  1394.    FreeStrBuf(comp.MailBCC);
  1395.    FreeStrBuf(comp.From);
  1396.    FreeStrBuf(comp.ReplyTo);
  1397.    DisplayStatistics(outfolder);
  1398.    BusyEnd;
  1399. }
  1400.  
  1401. void SAVEDS ASM WR_NewMailFunc(REG(a1,int *arg))
  1402. {
  1403.    WR_NewMail(arg[0], arg[1]);
  1404. }
  1405. MakeHook(WR_NewMailHook, WR_NewMailFunc);
  1406.  
  1407. ///
  1408. /// WR_Cleanup
  1409. //  Terminates file notification and removes temporary files
  1410. void WR_Cleanup(int winnum)
  1411. {
  1412.    int i;
  1413.    struct Attach *att;
  1414.    if (G->WR[winnum]->Mode != NEW_BOUNCE)
  1415.    {
  1416.       EndNotify(&G->WR_NRequest[winnum]);
  1417.       DeleteFile(G->WR_Filename[winnum]);
  1418.       for (i = 0; ; i++)
  1419.       {
  1420.          DoMethod(G->WR[winnum]->GUI.LV_ATTACH, MUIM_List_GetEntry, i, &att);
  1421.          if (!att) break;
  1422.          if (att->IsTemp) DeleteFile(att->FilePath);
  1423.       }
  1424.    }
  1425. }
  1426.  
  1427. ///
  1428. /// WR_CancelFunc
  1429. //  User clicked the Cancel button
  1430. void SAVEDS ASM WR_CancelFunc(REG(a1,int *arg))
  1431. {
  1432.    int haschanged, winnum = *arg;
  1433.    if (G->WR[winnum]->Mode != NEW_BOUNCE)
  1434.    {
  1435.       if (winnum < 2)
  1436.       {
  1437.          get(G->WR[winnum]->GUI.TE_EDIT, MUIA_TextEditor_HasChanged, &haschanged);
  1438.          if (haschanged)
  1439.             switch (MUI_Request(G->App, G->WR[winnum]->GUI.WI, 0, NULL, GetStr(MSG_WR_DiscardChangesGad), GetStr(MSG_WR_DiscardChanges)))
  1440.             {
  1441.                case 0: return;
  1442.                case 1: WR_NewMail(WRITE_QUEUE, winnum);
  1443.                        return;
  1444.                case 2: break;
  1445.             }
  1446.       }
  1447.       WR_Cleanup(winnum);
  1448.    }
  1449.    DisposeModulePush(&G->WR[winnum]);
  1450. }
  1451. MakeHook(WR_CancelHook, WR_CancelFunc);
  1452.  
  1453. ///
  1454. /// WR_SaveAsFunc
  1455. //  Saves contents of internal editor to a file
  1456. void SAVEDS ASM WR_SaveAsFunc(REG(a1,int *arg))
  1457. {
  1458.    int winnum = *arg;
  1459.    set(G->WR[winnum]->GUI.RG_PAGE, MUIA_Group_ActivePage, 0);
  1460.    if (ReqFile(ASL_ATTACH, G->WR[winnum]->GUI.WI, GetStr(MSG_WR_SaveTextAs), 1, C->AttachDir, ""))
  1461.    {
  1462.       char filename[SIZE_PATHFILE];
  1463.       strmfp(filename, G->ASLReq[ASL_ATTACH]->fr_Drawer, G->ASLReq[ASL_ATTACH]->fr_File);
  1464.       EditorToFile(G->WR[winnum]->GUI.TE_EDIT, G->WR_Filename[winnum], NULL);
  1465.       if (!CopyFile(filename, NULL, G->WR_Filename[winnum], NULL))
  1466.          ER_NewError(GetStr(MSG_ER_CantCreateFile), filename, NULL);
  1467.    }
  1468. }
  1469. MakeHook(WR_SaveAsHook, WR_SaveAsFunc);
  1470.  
  1471. ///
  1472. /// WR_Edit
  1473. //  Launches external editor with message text
  1474. void SAVEDS ASM WR_Edit(REG(a1,int *arg))
  1475. {
  1476.    int winnum = *arg;
  1477.    long winopen;
  1478.  
  1479.    if (*(C->Editor))
  1480.    {
  1481.       char buffer[SIZE_COMMAND+SIZE_PATHFILE];
  1482.  
  1483.       get(G->WR[winnum]->GUI.WI, MUIA_Window_Open, &winopen);
  1484.       if (winopen) set(G->WR[winnum]->GUI.RG_PAGE, MUIA_Group_ActivePage, 0);
  1485.       /* Workaround for a MUI bug */
  1486.  
  1487.       EditorToFile(G->WR[winnum]->GUI.TE_EDIT, G->WR_Filename[winnum], NULL);
  1488.       sprintf(buffer,"%s \"%s\"", C->Editor, G->WR_Filename[winnum]);
  1489.       ExecuteCommand(buffer, TRUE, OUT_NIL);
  1490.    }
  1491. }
  1492. MakeHook(WR_EditHook, WR_Edit);
  1493.  
  1494. ///
  1495. /// WR_AddFileFunc
  1496. //  Adds one or more files to the attachment list
  1497. void SAVEDS ASM WR_AddFileFunc(REG(a1,int *arg))
  1498. {
  1499.    int i, winnum = *arg;
  1500.    char filename[SIZE_PATHFILE];
  1501.    struct FileRequester *ar = G->ASLReq[ASL_ATTACH];
  1502.  
  1503.    if (ReqFile(ASL_ATTACH, G->WR[winnum]->GUI.WI, GetStr(MSG_WR_AddFile), 2, C->AttachDir, ""))
  1504.       if (!ar->fr_NumArgs)
  1505.       {
  1506.          strmfp(filename, G->ASLReq[ASL_ATTACH]->fr_Drawer, G->ASLReq[ASL_ATTACH]->fr_File);
  1507.          WR_AddFileToList(winnum, filename, NULL, FALSE);
  1508.       }
  1509.       else for (i = 0; i < ar->fr_NumArgs; i++)
  1510.       {
  1511.          strmfp(filename, G->ASLReq[ASL_ATTACH]->fr_Drawer, G->ASLReq[ASL_ATTACH]->fr_ArgList[i].wa_Name);
  1512.          WR_AddFileToList(winnum, filename, NULL, FALSE);
  1513.       }
  1514. }
  1515. MakeHook(WR_AddFileHook, WR_AddFileFunc);
  1516.  
  1517. ///
  1518. /// WR_AddArchiveFunc
  1519. //  Creates an archive of one or more files and adds it to the attachment list
  1520. void SAVEDS ASM WR_AddArchiveFunc(REG(a1,int *arg))
  1521. {
  1522.    int i, winnum = *arg;
  1523.    static char chr[2] = { 0,0 };
  1524.    char *src, *dst, filename[SIZE_PATHFILE], arcpath[SIZE_PATHFILE], arcname[SIZE_FILE];
  1525.    struct TempFile *tf = NULL;
  1526.    struct FileRequester *ar = G->ASLReq[ASL_ATTACH];
  1527.    BPTR olddir, filedir;
  1528.  
  1529.    if (ReqFile(ASL_ATTACH, G->WR[winnum]->GUI.WI, GetStr(MSG_WR_AddFile), 2, C->AttachDir, ""))
  1530.    {
  1531.       strsfn(ar->fr_ArgList[0].wa_Name, NULL, NULL, arcname, NULL);
  1532.       if (!*arcname) strsfn(ar->fr_ArgList[0].wa_Name, NULL, NULL, NULL, arcname);
  1533.       if (!StringRequest(arcname, SIZE_FILE, GetStr(MSG_WR_CreateArc), GetStr(MSG_WR_CreateArcReq), GetStr(MSG_Okay), NULL, GetStr(MSG_Cancel), FALSE, G->WR[winnum]->GUI.WI)) return;
  1534.       strmfp(filename, C->TempDir, arcname);
  1535.       sprintf(arcpath, strchr(filename, ' ') ? "\"%s\"" : "%s", filename);
  1536.       if (strstr(C->PackerCommand, "%l")) if ((tf = OpenTempFile("w")))
  1537.       {
  1538.          for (i = 0; i < ar->fr_NumArgs; i++)
  1539.          {
  1540. //            strmfp(filename, ar->fr_Drawer, ar->fr_ArgList[i].wa_Name);
  1541. //            fprintf(tf->FP, strchr(filename, ' ') ? "\"%s\"\n" : "%s\n", filename);
  1542.             fprintf(tf->FP, strchr(ar->fr_ArgList[i].wa_Name, ' ') ? "\"%s\"\n" : "%s\n", ar->fr_ArgList[i].wa_Name);
  1543.          }
  1544.          fclose(tf->FP); tf->FP = NULL;
  1545.       }
  1546.       dst = AllocStrBuf(SIZE_DEFAULT);
  1547.       for (src = C->PackerCommand; *src; src++)
  1548.          if (*src == '%') switch (*++src)
  1549.          {
  1550.             case '%': dst = StrBufCat(dst, "%"); break;
  1551.             case 'a': dst = StrBufCat(dst, arcpath); break;
  1552.             case 'l': dst = StrBufCat(dst, tf->Filename); break;
  1553.             case 'f': for (i = 0; i < ar->fr_NumArgs; i++)
  1554.                       {
  1555. //                         strcpy(filename, "\"");
  1556. //                         strmfp(&filename[1], ar->fr_Drawer, ar->fr_ArgList[i].wa_Name);
  1557. //                         strcat(filename, "\" ");
  1558.                          sprintf(filename, "\"%s\"", ar->fr_ArgList[i].wa_Name);
  1559.                          dst = StrBufCat(dst, filename);
  1560.                       }
  1561.                       break;
  1562.          }
  1563.          else
  1564.          {
  1565.             chr[0] = *src;
  1566.             dst = StrBufCat(dst, chr);
  1567.          }
  1568.       filedir = Lock(ar->fr_Drawer, ACCESS_READ); olddir = CurrentDir(filedir);
  1569.       ExecuteCommand(dst, FALSE, OUT_NIL);
  1570.       CurrentDir(olddir); UnLock(filedir);
  1571.       FreeStrBuf(dst);
  1572.       CloseTempFile(tf);
  1573.       strcpy(filename, arcpath);
  1574.       if (FileSize(filename) == -1)
  1575.       {
  1576.          sprintf(filename, "%s.lha", arcpath);
  1577.          if (FileSize(filename) == -1)
  1578.          {
  1579.             sprintf(filename, "%s.lzx", arcpath);
  1580.             if (FileSize(filename) == -1)
  1581.                sprintf(filename, "%s.zip", arcpath);
  1582.          }
  1583.       }
  1584.       WR_AddFileToList(winnum, filename, NULL, TRUE);
  1585.    }
  1586. }
  1587. MakeHook(WR_AddArchiveHook, WR_AddArchiveFunc);
  1588.  
  1589. ///
  1590. /// WR_DisplayFile
  1591. //  Displays an attached file using a MIME viewer
  1592. void SAVEDS ASM WR_DisplayFile(REG(a1,int *arg))
  1593. {
  1594.    struct Attach *attach = NULL;
  1595.  
  1596.    DoMethod(G->WR[*arg]->GUI.LV_ATTACH, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &attach);
  1597.    if (attach) RE_DisplayMIME(attach->FilePath, attach->ContentType);
  1598. }
  1599. MakeHook(WR_DisplayFileHook, WR_DisplayFile);
  1600.  
  1601. ///
  1602. /// WR_ChangeSignatureFunc
  1603. //  Changes the current signature
  1604. void SAVEDS ASM WR_ChangeSignatureFunc(REG(a1,int *arg))
  1605. {
  1606.    struct TempFile *tf;
  1607.    int signat = arg[0], winnum = arg[1];
  1608.    char buffer[SIZE_LINE];
  1609.    FILE *in, *out;
  1610.  
  1611.    if ((tf = OpenTempFile(NULL)))
  1612.    {
  1613.       EditorToFile(G->WR[winnum]->GUI.TE_EDIT, tf->Filename, NULL);
  1614.       if ((in = fopen(tf->Filename, "r")))
  1615.       {
  1616.          if ((out = fopen(G->WR_Filename[winnum], "w")))
  1617.          {
  1618.             while (fgets(buffer, SIZE_LINE, in))
  1619.                if (strcmp(buffer, "-- \n")) fputs(buffer, out); else break;
  1620.             if (signat) WR_WriteSignature(out, signat-1);
  1621.             fclose(out);
  1622.          }
  1623.          fclose(in);
  1624.       }
  1625.       CloseTempFile(tf);;
  1626.    }
  1627. }
  1628. MakeHook(WR_ChangeSignatureHook, WR_ChangeSignatureFunc);
  1629. ///
  1630.  
  1631. /*** Menus ***/
  1632. /// WR_TransformText
  1633. //  Inserts or pastes text as plain, ROT13 or quoted
  1634. LOCAL char *WR_TransformText(char *source, int mode, char *qtext)
  1635. {
  1636.    FILE *fp;
  1637.    char *dest = NULL;
  1638.    int ch, i, size = FileSize(source), pos = 0, p = 0, qtextlen = strlen(qtext);
  1639.    BOOL quote = (mode == ED_INSQUOT || mode == ED_PASQUOT ||
  1640.                  mode == ED_INSALTQUOT || mode == ED_PASALTQUOT);
  1641.    if (size > 0)
  1642.    {
  1643.       size += SIZE_DEFAULT;
  1644.       if (quote) size += size/20*qtextlen;
  1645.       if ((dest = calloc(size, 1)))
  1646.       {
  1647.          if ((fp = fopen(source, "r")))
  1648.          {
  1649.             while ((ch = fgetc(fp)) != EOF)
  1650.             {
  1651.                if (!pos && quote)
  1652.                {
  1653.                   if (p+qtextlen > size-2) dest = realloc(dest,(size += SIZE_LARGE));
  1654.                   for (i = 0; i < qtextlen; i++) dest[p++] = qtext[i];
  1655.                   dest[p++] = ' ';
  1656.                }
  1657.                if (ch == '\n') pos = 0; else ++pos;
  1658.                if (mode == ED_INSROT13 || mode == ED_PASROT13)
  1659.                {
  1660.                   if (ch >= 'a' && ch <= 'z') if ((ch += 13) > 'z') ch -= 26;
  1661.                   if (ch >= 'A' && ch <= 'Z') if ((ch += 13) > 'Z') ch -= 26;
  1662.                }
  1663.                if (p > size-3) dest = realloc(dest,(size += SIZE_LARGE));
  1664.                dest[p++] = ch;
  1665.             }
  1666.             dest[p] = 0;
  1667.             fclose(fp);
  1668.          }
  1669.       }
  1670.    }
  1671.    return dest;
  1672. }
  1673.  
  1674. ///
  1675. /// WR_InsertSeparator
  1676. //  Inserts a separator bar at the cursor position
  1677. void SAVEDS ASM WR_InsertSeparatorFunc(REG(a1,int *arg))
  1678. {
  1679.    APTR ed = G->WR[arg[1]]->GUI.TE_EDIT;
  1680.    set(ed, MUIA_TextEditor_ImportHook, MUIV_TextEditor_ImportHook_Plain);
  1681.    DoMethod(ed, MUIM_TextEditor_InsertText, arg[0] ? "\n\033c\033[s:18]\n" : "\n\033c\033[s:2]\n");
  1682.    set(ed, MUIA_TextEditor_ImportHook, MUIV_TextEditor_ImportHook_EMail);
  1683. }
  1684. MakeHook(WR_InsertSeparatorHook, WR_InsertSeparatorFunc);
  1685.  
  1686. ///
  1687. /// WR_EditorCmd
  1688. //  Inserts file or clipboard into editor
  1689. void SAVEDS ASM WR_EditorCmd(REG(a1,int *arg))
  1690. {
  1691.    int cmd = arg[0], winnum = arg[1];
  1692.    char *text, *quotetext, filename[SIZE_PATHFILE];
  1693.    struct TempFile *tf;
  1694.    struct WR_ClassData *wr = G->WR[winnum];
  1695.  
  1696.     quotetext = (cmd == ED_INSALTQUOT || cmd == ED_PASALTQUOT) ?
  1697.                         wr->AltQuoteText : wr->QuoteText;
  1698.    switch(cmd)
  1699.    {
  1700.       case ED_INSERT:
  1701.       case ED_INSQUOT:
  1702.       case ED_INSALTQUOT:
  1703.       case ED_INSROT13:
  1704.       case ED_OPEN:
  1705.          if (!ReqFile(ASL_ATTACH, wr->GUI.WI, GetStr(MSG_WR_InsertFile), 0, C->AttachDir, "")) return;
  1706.          strmfp(filename, G->ASLReq[ASL_ATTACH]->fr_Drawer, G->ASLReq[ASL_ATTACH]->fr_File);
  1707.              text = WR_TransformText(filename, cmd, quotetext);
  1708.          break;
  1709.       default:
  1710.          if (!(tf = OpenTempFile("w"))) return;
  1711.          DumpClipboard(tf->FP);
  1712.          fclose(tf->FP); tf->FP = NULL;
  1713.              text = WR_TransformText(tf->Filename, cmd, quotetext);
  1714.          CloseTempFile(tf);
  1715.          break;
  1716.    }
  1717.    if(text)
  1718.    {
  1719.       if (cmd == ED_OPEN) DoMethod(wr->GUI.TE_EDIT, MUIM_TextEditor_ClearText);
  1720.       DoMethod(wr->GUI.TE_EDIT, MUIM_TextEditor_InsertText, text);
  1721.       free(text);
  1722.    }
  1723. }
  1724. MakeHook(WR_EditorCmdHook, WR_EditorCmd);
  1725.  
  1726. ///
  1727. /// WR_AddClipboardFunc
  1728. //  Adds contents of clipboard as attachment
  1729. void SAVEDS ASM WR_AddClipboardFunc(REG(a1,int *arg))
  1730. {
  1731.    int winnum = *arg;
  1732.    struct TempFile *tf = OpenTempFile("w");
  1733.    if (DumpClipboard(tf->FP))
  1734.    {
  1735.       fclose(tf->FP); tf->FP = NULL;
  1736.       WR_AddFileToList(winnum, tf->Filename, "clipboard.text", TRUE);
  1737.       free(tf);
  1738.       return;
  1739.    }
  1740.    CloseTempFile(tf);
  1741. }
  1742. MakeHook(WR_AddClipboardHook, WR_AddClipboardFunc);
  1743.  
  1744. ///
  1745. /// WR_AddPGPKeyFunc
  1746. //  Adds ASCII version of user's public PGP key as attachment
  1747. void SAVEDS ASM WR_AddPGPKeyFunc(REG(a1,int *arg))
  1748. {
  1749.    int winnum = *arg;
  1750.    char *myid = *C->MyPGPID ? C->MyPGPID : C->EmailAddress;
  1751.    char options[SIZE_LARGE], *fname = "T:PubKey.asc";
  1752.    sprintf(options, (G->PGPVersion == 5) ? "-x %s -o %s +force +batchmode=1" : "-kxa %s %s +f +bat", myid, fname);
  1753.    if (!PGPCommand((G->PGPVersion == 5) ? "pgpk" : "pgp", options, 0)) if (FileSize(fname) > 0)
  1754.    {
  1755.       WR_AddFileToList(winnum, fname, NULL, TRUE);
  1756.       setstring(G->WR[winnum]->GUI.ST_CTYPE, "application/pgp-keys");
  1757.    }
  1758.    else ER_NewError(GetStr(MSG_ER_ErrorAppendKey), myid, NULL);
  1759. }
  1760. MakeHook(WR_AddPGPKeyHook, WR_AddPGPKeyFunc);
  1761. ///
  1762.  
  1763. /*** Open ***/
  1764. /// WR_Open
  1765. //  Initializes a write window
  1766. int WR_Open(int winnum, BOOL bounce)
  1767. {
  1768.    /* winnum:
  1769.       -1 - a new window should be opened
  1770.        2 - window should be opened in "quiet mode"
  1771.  
  1772.       G->WR[0]: 1st possible window.
  1773.       G->WR[1]: 2nd possible window.
  1774.       G->WR[2]: Quiet window (last).
  1775.    */
  1776.  
  1777.    /* Find first un-used window and set winnum accordingly (or return -1
  1778.       if they are all taken). */
  1779.    if (winnum == -1) if (G->WR[winnum = 0]) if (G->WR[winnum = 1]) return -1;
  1780.  
  1781.    G->WR[winnum] = bounce ? WR_NewBounce(winnum) : WR_New(winnum);
  1782.    if (!G->WR[winnum]) return -1;
  1783.    if (!bounce)
  1784.    {
  1785.       struct WR_GUIData *gui = &G->WR[winnum]->GUI;
  1786.       setstring(gui->ST_FROM, BuildAddrName(C->EmailAddress, C->RealName));
  1787.       setstring(gui->ST_REPLYTO, C->ReplyTo);
  1788.       setstring(gui->ST_EXTHEADER, C->ExtraHeaders);
  1789.       setcheckmark(gui->CH_DELSEND, !C->SaveSent);
  1790.       setcheckmark(gui->CH_ADDINFO, C->AddMyInfo);
  1791.    }
  1792.    MA_StartMacro(MACRO_PREWRITE, itoa(winnum));
  1793.    return winnum;
  1794. }
  1795.  
  1796. ///
  1797. /// WR_SetupOldMail
  1798. //  When editing a message, sets write window options to old values
  1799. void WR_SetupOldMail(int winnum)
  1800. {
  1801.    static struct Attach attach;
  1802.    struct Part *part = G->RE[4]->FirstPart->Next;
  1803.  
  1804.    if (part) for (part = part->Next; part; part = part->Next)
  1805.       if (stricmp(part->ContentType, "application/pgp-signature"))
  1806.       {
  1807.          Busy(GetStr(MSG_BusyDecSaving), "", 0, 0);
  1808.          RE_DecodePart(part);
  1809.          clear(&attach, sizeof(struct Attach));
  1810.          attach.Size = part->Size;
  1811.          attach.IsMIME = part->EncodingCode != ENC_UUE;
  1812.          attach.IsTemp = TRUE;
  1813.          if (part->Name) stccpy(attach.Name, part->Name, SIZE_FILE);
  1814.          strcpy(attach.FilePath, part->Filename);
  1815.          *part->Filename = 0;
  1816.          stccpy(attach.ContentType, part->ContentType, SIZE_CTYPE);
  1817.          stccpy(attach.Description, part->Description, SIZE_DEFAULT);
  1818.          DoMethod(G->WR[winnum]->GUI.LV_ATTACH, MUIM_List_InsertSingle, &attach, MUIV_List_Insert_Bottom);
  1819.          BusyEnd;
  1820.       }
  1821. }
  1822.  
  1823. ///
  1824. /// WR_UpdateTitleFunc
  1825. //  Shows cursor coordinates
  1826. void SAVEDS ASM WR_UpdateWTitleFunc(REG(a1,int *arg))
  1827. {
  1828.    struct WR_ClassData *wr = G->WR[*arg];
  1829.    APTR ed = wr->GUI.TE_EDIT;
  1830.  
  1831.    sprintf(wr->WTitle, "%03ld\n%03ld", GetMUI(ed,MUIA_TextEditor_CursorY)+1, GetMUI(ed,MUIA_TextEditor_CursorX)+1);
  1832.    set(wr->GUI.TX_POSI, MUIA_Text_Contents, wr->WTitle);
  1833. }
  1834. MakeHook(WR_UpdateWTitleHook,WR_UpdateWTitleFunc);
  1835. ///
  1836.  
  1837. /*** Hooks ***/
  1838. /// WR_AppFunc
  1839. //  Handles Drag&Drop
  1840. void WR_App(int winnum, struct AppMessage *amsg)
  1841. {
  1842.    struct WBArg *ap;
  1843.    int i, mode;
  1844.    char buf[SIZE_PATHFILE];
  1845.  
  1846.    get(G->WR[winnum]->GUI.RG_PAGE, MUIA_Group_ActivePage, &mode);
  1847.    for (i = 0; i < amsg->am_NumArgs; i++)
  1848.    {
  1849.       ap = &amsg->am_ArgList[i];
  1850.       NameFromLock(ap->wa_Lock, buf, SIZE_PATHFILE);
  1851.       AddPart(buf, ap->wa_Name, SIZE_PATHFILE);
  1852.       if (!mode)
  1853.       {
  1854.          FILE *fh;
  1855.          int len, j, notascii = 0;
  1856.          char buffer[SIZE_LARGE];
  1857.          if ((fh = fopen(buf, "r")))
  1858.          {
  1859.             len = fread(buffer, 1, SIZE_LARGE-1, fh);
  1860.             buffer[len] = 0;
  1861.             fclose(fh);
  1862.             for (j = 0; j < len; j++) if ((int)buffer[j] < 32 || (int)buffer[j] > 127) if (buffer[j] != '\t' && buffer[j] != '\n') notascii++;
  1863.             if (notascii) if (len/notascii <= 16) mode = 1;
  1864.          }
  1865.       }
  1866.       if (!mode)
  1867.       {
  1868.          char *text = WR_TransformText(buf, ED_INSERT, "");
  1869.          if (text) DoMethod(G->WR[winnum]->GUI.TE_EDIT, MUIM_TextEditor_InsertText, text);
  1870.          free(text);
  1871.       }
  1872.       else WR_AddFileToList(winnum, buf, NULL, FALSE);
  1873.    }
  1874. }
  1875.  
  1876. LONG SAVEDS ASM WR_AppFunc(REG(a1,ULONG *arg))
  1877. {
  1878.    WR_App((int)arg[1],  (struct AppMessage *)arg[0]);
  1879.    return 0;
  1880. }
  1881. MakeHook(WR_AppHook, WR_AppFunc);
  1882.  
  1883. ///
  1884. /// WR_LV_ConFunc
  1885. //  Attachment listview construct hook
  1886. struct Attach * SAVEDS ASM WR_LV_ConFunc(REG(a1,struct Attach *attach))
  1887. {
  1888.    struct Attach *entry = malloc(sizeof(struct Attach));
  1889.    *entry = *attach;
  1890.    return entry;
  1891. }
  1892. MakeHook(WR_LV_ConFuncHook, WR_LV_ConFunc);
  1893.  
  1894. ///
  1895. /// WR_LV_DspFunc
  1896. //  Attachment listview display hook
  1897. long SAVEDS ASM WR_LV_DspFunc(REG(a2,char **array), REG(a1,struct Attach *entry))
  1898. {
  1899.    static char dispsz[SIZE_SMALL];
  1900.    if (entry)
  1901.    {
  1902.       array[0] = entry->Name;
  1903.       sprintf(array[1] = dispsz, "%d", entry->Size);
  1904.       array[2] = DescribeCT(entry->ContentType);
  1905.       array[3] = entry->IsMIME ? "MIME" : "UU";
  1906.       array[4] = entry->Description;
  1907.    }
  1908.    else 
  1909.    {
  1910.       array[0] = GetStr(MSG_WR_TitleFile); 
  1911.       array[1] = GetStr(MSG_WR_TitleSize);
  1912.       array[2] = GetStr(MSG_WR_TitleContents);
  1913.       array[3] = GetStr(MSG_WR_TitleEncoding);
  1914.       array[4] = GetStr(MSG_WR_TitleDescription);
  1915.    }
  1916.    return 0;
  1917. }
  1918. MakeHook(WR_LV_DspFuncHook, WR_LV_DspFunc);
  1919. ///
  1920.  
  1921. /*** GUI ***/
  1922. /// WR_SharedSetup
  1923. //  Common setup for write and bounce windows
  1924. LOCAL void WR_SharedSetup(struct WR_ClassData *data, int winnum)
  1925. {
  1926.    SetHelp(data->GUI.ST_TO      ,MSG_HELP_WR_ST_TO      );
  1927.    SetHelp(data->GUI.BT_QUEUE   ,MSG_HELP_WR_BT_QUEUE   );
  1928.    SetHelp(data->GUI.BT_HOLD    ,MSG_HELP_WR_BT_HOLD    );
  1929.    SetHelp(data->GUI.BT_SEND    ,MSG_HELP_WR_BT_SEND    );
  1930.    SetHelp(data->GUI.BT_CANCEL  ,MSG_HELP_WR_BT_CANCEL  );
  1931.    DoMethod(data->GUI.BT_HOLD    ,MUIM_Notify,MUIA_Pressed             ,FALSE         ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_NewMailHook,WRITE_HOLD,winnum);
  1932.    DoMethod(data->GUI.BT_QUEUE   ,MUIM_Notify,MUIA_Pressed             ,FALSE         ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_NewMailHook,WRITE_QUEUE,winnum);
  1933.    DoMethod(data->GUI.BT_SEND    ,MUIM_Notify,MUIA_Pressed             ,FALSE         ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_NewMailHook,WRITE_SEND,winnum);
  1934.    DoMethod(data->GUI.BT_CANCEL  ,MUIM_Notify,MUIA_Pressed             ,FALSE         ,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_CancelHook,winnum);
  1935.    DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_CloseRequest ,TRUE          ,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_CancelHook,winnum);
  1936. }
  1937.  
  1938. ///
  1939. /// MakeAddressField
  1940. //  Creates a recipient field
  1941. LOCAL APTR MakeAddressField(APTR *string, char *label, APTR help, int abmode, int winnum, BOOL allowmulti)
  1942. {
  1943.    APTR obj, bt_ver, bt_adr;
  1944.    if ((obj = HGroup,
  1945.       GroupSpacing(1),
  1946.       Child, *string = NewObject(CL_DDString->mcc_Class, NULL,
  1947.          MUIA_ControlChar, ShortCut(label),
  1948.          MUIA_UserData, allowmulti,
  1949.       End,
  1950.       Child, bt_ver = PopButton(MUII_ArrowLeft),
  1951.       Child, bt_adr = PopButton(MUII_PopUp),
  1952.    End))
  1953.    {
  1954.       set(bt_ver, MUIA_CycleChain, TRUE);
  1955.       set(bt_adr, MUIA_CycleChain, TRUE);
  1956.       SetHelp(*string,help);
  1957.       SetHelp(bt_ver, MSG_HELP_WR_BT_VER);
  1958.       SetHelp(bt_adr, MSG_HELP_WR_BT_ADR);
  1959.       DoMethod(*string,MUIM_Notify,MUIA_String_Acknowledge,MUIV_EveryTime,MUIV_Notify_Window,5,MUIM_CallHook,&WR_VerifyAutoHook,*string,winnum,!allowmulti);
  1960.       DoMethod(bt_ver,MUIM_Notify,MUIA_Pressed,FALSE,MUIV_Notify_Application,5,MUIM_CallHook,&WR_VerifyManualHook,*string,winnum,!allowmulti);
  1961.       DoMethod(bt_adr,MUIM_Notify,MUIA_Pressed,FALSE,MUIV_Notify_Application,4,MUIM_CallHook,&AB_OpenHook,abmode,winnum);
  1962.    }
  1963.    return obj;
  1964. }
  1965.  
  1966. ///
  1967. /// WR_New
  1968. //  Creates a write window
  1969. enum { WMEN_NEW=1,WMEN_OPEN,WMEN_INSFILE,WMEN_SAVEAS,WMEN_INSQUOT,WMEN_INSALTQUOT,
  1970.        WMEN_INSROT13,WMEN_EDIT,WMEN_CUT,WMEN_COPY,WMEN_PASTE,
  1971.        WMEN_PASQUOT,WMEN_PASALTQUOT,WMEN_PASROT13,WMEN_DICT,WMEN_STYLE1,WMEN_STYLE2,WMEN_STYLE3,
  1972.        WMEN_STYLE4,WMEN_EMOT0,WMEN_EMOT1,WMEN_EMOT2,WMEN_EMOT3,WMEN_UNDO,WMEN_REDO,
  1973.        WMEN_AUTOSP,WMEN_SEP0,WMEN_SEP1,WMEN_ADDFILE, WMEN_ADDCLIP, WMEN_ADDPGP,
  1974.        WMEN_DELSEND,WMEN_RECEIPT,WMEN_DISPNOTI,WMEN_ADDINFO,WMEN_IMPORT0,WMEN_IMPORT1,
  1975.        WMEN_IMPORT2,WMEN_SIGN0,WMEN_SIGN1,WMEN_SIGN2,WMEN_SIGN3,
  1976.        WMEN_SECUR0,WMEN_SECUR1,WMEN_SECUR2,WMEN_SECUR3,WMEN_SECUR4, WMEN_SECUR5 };
  1977. extern long cmap[8];
  1978.  
  1979. struct WR_ClassData *WR_New(int winnum)
  1980. {
  1981.    struct WR_ClassData *data;
  1982.  
  1983.    if ((data = calloc(1,sizeof(struct WR_ClassData))))
  1984.    {
  1985.       static char *rtitles[4]={NULL}, *encoding[3], *security[SEC_MAXDUMMY+1], *priority[4], *signat[5];
  1986.       static char *emoticons[4] = { ":-)", ":-|", ":-(", ";-)" };
  1987.       APTR sec_menus[SEC_MAXDUMMY];
  1988.       APTR mi_copy, mi_cut, mi_redo, mi_undo, mi_bold, mi_italic, mi_underl, mi_color;
  1989.       APTR strip, mi_autospell, mi_delsend, mi_receipt, mi_dispnoti, mi_addinfo;
  1990.       APTR slider = ScrollbarObject, End;
  1991.       APTR tb_butt[13] = { MSG_WR_TBEditor,MSG_WR_TBInsert,MSG_Space,
  1992.                            MSG_WR_TBCut,MSG_WR_TBCopy,MSG_WR_TBPaste,MSG_WR_TBUndo,MSG_Space,
  1993.                            MSG_WR_TBBold,MSG_WR_TBItalic,MSG_WR_TBUnderlined,MSG_WR_TBColored,NULL };
  1994.       APTR tb_help[13] = { MSG_HELP_WR_BT_EDITOR,MSG_HELP_WR_BT_LOAD,NULL,
  1995.                            MSG_HELP_WR_BT_CUT,MSG_HELP_WR_BT_COPY,MSG_HELP_WR_BT_PASTE,MSG_HELP_WR_BT_UNDO,NULL,
  1996.                            MSG_HELP_WR_BT_BOLD,MSG_HELP_WR_BT_ITALIC,MSG_HELP_WR_BT_UNDERL,MSG_HELP_WR_BT_COLOR,NULL };
  1997.       int i, spell;
  1998.       for (i = 0; i < 13; i++) SetupToolbar(&(data->GUI.TB_TOOLBAR[i]), tb_butt[i]?(tb_butt[i]==MSG_Space?"":GetStr(tb_butt[i])):NULL, tb_help[i]?GetStr(tb_help[i]):NULL, (i>=8 && i<=11)?TDF_TOGGLE:0);
  1999.         if(NULL == rtitles[0])    // only initialize static data on first call
  2000.         {
  2001.             rtitles[0] = GetStr(MSG_Message);
  2002.             rtitles[1] = GetStr(MSG_Attachments);
  2003.             rtitles[2] = GetStr(MSG_Options);
  2004.             rtitles[3] = NULL;
  2005.             encoding[0] = "Base64/QP";
  2006.             encoding[1] = "UUencode";
  2007.             encoding[2] = NULL;
  2008.             security[SEC_NONE]    = GetStr(MSG_WR_SecNone);
  2009.             security[SEC_SIGN]    = GetStr(MSG_WR_SecSign);
  2010.             security[SEC_ENCRYPT] = GetStr(MSG_WR_SecEncrypt);
  2011.             security[SEC_BOTH]    = GetStr(MSG_WR_SecBoth);
  2012.             security[SEC_SENDANON]= GetStr(MSG_WR_SecAnon);
  2013.             security[SEC_DEFAULTS]= GetStr(MSG_WR_SecDefaults);
  2014.             security[SEC_MAXDUMMY]= NULL;
  2015.             priority[0] = GetStr(MSG_WR_ImpHigh);
  2016.             priority[1] = GetStr(MSG_WR_ImpNormal);
  2017.             priority[2] = GetStr(MSG_WR_ImpLow);
  2018.             priority[3] = NULL;
  2019.             signat[0] = GetStr(MSG_WR_NoSig);
  2020.             signat[1] = GetStr(MSG_WR_DefSig);
  2021.             signat[2] = GetStr(MSG_WR_AltSig1);
  2022.             signat[3] = GetStr(MSG_WR_AltSig2);
  2023.             signat[4] = NULL;
  2024.         }
  2025.       data->GUI.WI = WindowObject,
  2026.          MUIA_Window_Title, GetStr(MSG_WR_WriteWT),
  2027.          MUIA_HelpNode, "WR_W",
  2028.          MUIA_Window_ID, MAKE_ID('W','R','I','T'),
  2029.          MUIA_Window_Menustrip, strip = MenustripObject,
  2030.             MUIA_Family_Child, MenuObject, MUIA_Menu_Title, GetStr(MSG_WR_Text),
  2031.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_New), MUIA_Menuitem_Shortcut,"N", MUIA_UserData,WMEN_NEW, End,
  2032.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_Open), MUIA_Menuitem_Shortcut,"O", MUIA_UserData,WMEN_OPEN, End,
  2033.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_InsertAs),
  2034.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Plain), MUIA_Menuitem_Shortcut,"P", MUIA_UserData,WMEN_INSFILE, End,
  2035.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Quoted), MUIA_UserData,WMEN_INSQUOT, End,
  2036.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_AltQuoted), MUIA_UserData,WMEN_INSALTQUOT, End,
  2037.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_ROT13), MUIA_UserData,WMEN_INSROT13, End,
  2038.                End,
  2039.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,NM_BARLABEL, End,
  2040.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_SaveAs), MUIA_UserData,WMEN_SAVEAS, End,
  2041.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,NM_BARLABEL, End,
  2042.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_LaunchEd), MUIA_Menuitem_Shortcut,"E", MUIA_UserData,WMEN_EDIT, End,
  2043.             End,
  2044.             MUIA_Family_Child, MenuObject, MUIA_Menu_Title, GetStr(MSG_WR_Edit),
  2045.                MUIA_Family_Child, mi_cut = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MCut), MUIA_Menuitem_Shortcut,"ramiga X", MUIA_Menuitem_CommandString,TRUE, MUIA_UserData,WMEN_CUT, End,
  2046.                MUIA_Family_Child, mi_copy = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MCopy), MUIA_Menuitem_Shortcut,"ramiga C", MUIA_Menuitem_CommandString,TRUE, MUIA_UserData,WMEN_COPY, End,
  2047.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MPaste), MUIA_Menuitem_Shortcut,"ramiga V", MUIA_Menuitem_CommandString,TRUE, MUIA_UserData,WMEN_PASTE, End,
  2048.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_PasteAs),
  2049.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Quoted), MUIA_Menuitem_Shortcut,"Q", MUIA_UserData,WMEN_PASQUOT, End,
  2050.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_AltQuoted), MUIA_UserData,WMEN_PASALTQUOT, End,
  2051.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_ROT13), MUIA_UserData,WMEN_PASROT13, End,
  2052.                End,
  2053.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,NM_BARLABEL, End,
  2054.                MUIA_Family_Child, mi_undo = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MUndo), MUIA_Menuitem_Shortcut,"ramiga Z", MUIA_Menuitem_CommandString,TRUE, MUIA_UserData,WMEN_UNDO, End,
  2055.                MUIA_Family_Child, mi_redo = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Redo), WMEN_REDO, End,
  2056.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,NM_BARLABEL, End,
  2057.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Dictionary), MUIA_Menuitem_Shortcut,"D", MUIA_UserData,WMEN_DICT, End,
  2058.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Textstyle),
  2059.                   MUIA_Family_Child, mi_bold = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Bold), MUIA_Menuitem_Shortcut,"B", MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Toggle,TRUE, MUIA_UserData,WMEN_STYLE1, End,
  2060.                   MUIA_Family_Child, mi_italic = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Italic), MUIA_Menuitem_Shortcut,"I", MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Toggle,TRUE, MUIA_UserData,WMEN_STYLE2, End,
  2061.                   MUIA_Family_Child, mi_underl = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Underlined), MUIA_Menuitem_Shortcut,"U", MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Toggle,TRUE, MUIA_UserData,WMEN_STYLE3, End,
  2062.                   MUIA_Family_Child, mi_color = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Colored), MUIA_Menuitem_Shortcut,"A", MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Toggle,TRUE, MUIA_UserData,WMEN_STYLE4, End,
  2063.                End,
  2064.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Separators),
  2065.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title, GetStr(MSG_WR_Thin), MUIA_Menuitem_Shortcut,"-", MUIA_UserData,WMEN_SEP0, End,
  2066.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title, GetStr(MSG_WR_Thick), MUIA_Menuitem_Shortcut,"=", MUIA_UserData,WMEN_SEP1, End,
  2067.                End,
  2068.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Emoticons),
  2069.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Happy), MUIA_UserData,WMEN_EMOT0, End,
  2070.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Indifferent), MUIA_UserData,WMEN_EMOT1, End,
  2071.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Sad), MUIA_UserData,WMEN_EMOT2, End,
  2072.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_Ironic), MUIA_UserData,WMEN_EMOT3, End,
  2073.                End,
  2074.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,NM_BARLABEL, End,
  2075.                MUIA_Family_Child, mi_autospell = MenuitemObject, MUIA_Menuitem_Title, GetStr(MSG_WR_SpellCheck), MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Toggle,TRUE, MUIA_UserData,WMEN_AUTOSP, End,
  2076.             End,
  2077.             MUIA_Family_Child, MenuObject, MUIA_Menu_Title, GetStr(MSG_Attachments),
  2078.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MAddFile), MUIA_Menuitem_Shortcut,"F", MUIA_UserData,WMEN_ADDFILE, End,
  2079.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_AddCB), MUIA_UserData,WMEN_ADDCLIP, End,
  2080.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_AddKey), MUIA_UserData,WMEN_ADDPGP, End,
  2081.             End,
  2082.             MUIA_Family_Child, MenuObject, MUIA_Menu_Title, GetStr(MSG_Options),
  2083.                MUIA_Family_Child, mi_delsend = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MDelSend), MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Toggle,TRUE, MUIA_UserData,WMEN_DELSEND, End,
  2084.                MUIA_Family_Child, mi_receipt = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MReceipt), MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Toggle,TRUE, MUIA_UserData,WMEN_RECEIPT, End,
  2085.                MUIA_Family_Child, mi_dispnoti= MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MGetMDN),  MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Toggle,TRUE, MUIA_UserData,WMEN_DISPNOTI, End,
  2086.                MUIA_Family_Child, mi_addinfo = MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MAddInfo), MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Toggle,TRUE, MUIA_UserData,WMEN_ADDINFO, End,
  2087.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_WR_MImportance),
  2088.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,priority[0], MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x06, MUIA_UserData,WMEN_IMPORT0, End,
  2089.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,priority[1], MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x05, MUIA_Menuitem_Checked,TRUE, MUIA_UserData,WMEN_IMPORT1, End,
  2090.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,priority[2], MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x03, MUIA_UserData,WMEN_IMPORT2, End,
  2091.                End,
  2092.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_CO_CrdSignature),
  2093.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,signat[0], MUIA_Menuitem_Shortcut,"0", MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x0E, MUIA_Menuitem_Checked,!C->UseSignature, MUIA_UserData,WMEN_SIGN0, End,
  2094.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,signat[1], MUIA_Menuitem_Shortcut,"7", MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x0D, MUIA_Menuitem_Checked,C->UseSignature, MUIA_UserData,WMEN_SIGN1, End,
  2095.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,signat[2], MUIA_Menuitem_Shortcut,"8", MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x0B, MUIA_UserData,WMEN_SIGN2, End,
  2096.                   MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,signat[3], MUIA_Menuitem_Shortcut,"9", MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x07, MUIA_UserData,WMEN_SIGN3, End,
  2097.                End,
  2098.                MUIA_Family_Child, MenuitemObject, MUIA_Menuitem_Title,GetStr(MSG_CO_CrdSecurity),
  2099.                   MUIA_Family_Child, sec_menus[SEC_NONE]     = MenuitemObject, MUIA_Menuitem_Title,security[SEC_NONE]    , MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x3E, MUIA_UserData,WMEN_SECUR0, End,
  2100.                   MUIA_Family_Child, sec_menus[SEC_SIGN]     = MenuitemObject, MUIA_Menuitem_Title,security[SEC_SIGN]    , MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x3D, MUIA_UserData,WMEN_SECUR1, End,
  2101.                   MUIA_Family_Child, sec_menus[SEC_ENCRYPT]  = MenuitemObject, MUIA_Menuitem_Title,security[SEC_ENCRYPT] , MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x3B, MUIA_UserData,WMEN_SECUR2, End,
  2102.                   MUIA_Family_Child, sec_menus[SEC_BOTH]     = MenuitemObject, MUIA_Menuitem_Title,security[SEC_BOTH]    , MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x37, MUIA_UserData,WMEN_SECUR3, End,
  2103.                   MUIA_Family_Child, sec_menus[SEC_SENDANON] = MenuitemObject, MUIA_Menuitem_Title,security[SEC_SENDANON], MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x2F, MUIA_UserData,WMEN_SECUR4, End,
  2104.                   MUIA_Family_Child, sec_menus[SEC_DEFAULTS] = MenuitemObject, MUIA_Menuitem_Title,security[SEC_DEFAULTS], MUIA_Menuitem_Checkit,TRUE, MUIA_Menuitem_Exclude,0x1F, MUIA_UserData,WMEN_SECUR5, MUIA_Menuitem_Checked, TRUE, End,
  2105.                End,
  2106.             End,
  2107.          End,
  2108.          MUIA_Window_AppWindow, TRUE,
  2109.          WindowContents, VGroup,
  2110.             Child, data->GUI.RG_PAGE = RegisterGroup(rtitles),
  2111.                MUIA_CycleChain, 1,
  2112.                Child, VGroup, /* Message */
  2113.                   MUIA_HelpNode, "WR00",
  2114.                   Child, ColGroup(2),
  2115.                      Child, Label(GetStr(MSG_WR_To)),
  2116.                      Child, MakeAddressField(&data->GUI.ST_TO, GetStr(MSG_WR_To), MSG_HELP_WR_ST_TO, ABM_TO, winnum, TRUE),
  2117.                      Child, Label(GetStr(MSG_WR_Subject)),
  2118.                      Child, data->GUI.ST_SUBJECT = MakeString(SIZE_SUBJECT,GetStr(MSG_WR_Subject)),
  2119.                   End,
  2120.                   Child, (C->HideGUIElements & HIDE_TBAR) ?
  2121.                      (RectangleObject, MUIA_ShowMe, FALSE, End) :
  2122.                      (HGroup, GroupSpacing(0),
  2123.                         Child, HGroupV,
  2124.                            Child, data->GUI.TO_TOOLBAR = ToolbarObject,
  2125.                               MUIA_Toolbar_ImageType,      MUIV_Toolbar_ImageType_File,
  2126.                               MUIA_Toolbar_ImageNormal,    "PROGDIR:Icons/Write.toolbar",
  2127.                               MUIA_Toolbar_ImageGhost,     "PROGDIR:Icons/Write_G.toolbar",
  2128.                               MUIA_Toolbar_ImageSelect,    "PROGDIR:Icons/Write_S.toolbar",
  2129.                               MUIA_Toolbar_Description,    data->GUI.TB_TOOLBAR,
  2130.                               MUIA_Font,                   MUIV_Font_Tiny,
  2131.                               MUIA_ShortHelp, TRUE,
  2132.                            End,
  2133.                            Child, HSpace(0),
  2134.                         End,
  2135.                         Child, (C->HideGUIElements & HIDE_XY) ?
  2136.                            HSpace(1) :
  2137.                            (VCenter((data->GUI.TX_POSI = TextObject,
  2138.                               TextFrame,
  2139.                               MUIA_Weight    ,0,
  2140.                               MUIA_Text_Contents, "000\n000",
  2141.                               MUIA_Background,MUII_TextBack,
  2142.                               MUIA_Frame     ,MUIV_Frame_Text,
  2143.                               MUIA_Font      ,MUIV_Font_Tiny,
  2144.                            End))),
  2145.                      End),
  2146.                   Child, HGroup,
  2147.                      MUIA_HelpNode, "EDIT",
  2148.                      MUIA_Group_Spacing, 0,
  2149.                      Child, data->GUI.TE_EDIT = NewObject(CL_TextEditor->mcc_Class,NULL,
  2150.                         InputListFrame,
  2151.                         MUIA_TextEditor_Slider, slider,
  2152.                         MUIA_TextEditor_ColorMap, G->EdColMap,
  2153.                         MUIA_TextEditor_FixedFont, C->FixedFontEdit,
  2154.                         MUIA_TextEditor_WrapBorder, C->EdWrapMode == 1 ? C->EdWrapCol : 0,
  2155.                         MUIA_TextEditor_ExportWrap, C->EdWrapMode == 2 ? C->EdWrapCol : 0,
  2156.                         MUIA_TextEditor_ImportHook, MUIV_TextEditor_ImportHook_EMail,
  2157.                         MUIA_TextEditor_ExportHook, MUIV_TextEditor_ExportHook_EMail,
  2158.                         MUIA_CycleChain, TRUE,
  2159.                      End,
  2160.                      Child, slider,
  2161.                   End,
  2162.                End,
  2163.                Child, VGroup, /* Attachments */
  2164.                   MUIA_HelpNode, "WR01",
  2165.                   Child, NListviewObject,
  2166.                      MUIA_CycleChain, 1,
  2167.                      MUIA_Listview_DragType, 1,
  2168.                      MUIA_NListview_NList,         data->GUI.LV_ATTACH = NewObject(CL_AttachList->mcc_Class,NULL,
  2169.                         InputListFrame,
  2170.                         MUIA_NList_ListBackground, MUII_ListBack,
  2171.                         MUIA_NList_TitleBackground, MUII_ListBack,
  2172.                         MUIA_NList_DragSortable ,TRUE,
  2173.                         MUIA_NList_Format       ,"D=8 BAR,P=\033r D=8 BAR,D=8 BAR,P=\033c D=8 BAR,",
  2174.                         MUIA_NList_Title        ,TRUE,
  2175.                         MUIA_NList_ConstructHook,&WR_LV_ConFuncHook,
  2176.                         MUIA_NList_DestructHook ,&GeneralDesHook,
  2177.                         MUIA_NList_DisplayHook  ,&WR_LV_DspFuncHook,
  2178.                      End,
  2179.                   End,
  2180.                   Child, ColGroup(4),
  2181.                      Child, data->GUI.BT_ADD     = MakeButton(GetStr(MSG_WR_Add)),
  2182.                      Child, data->GUI.BT_ADDPACK = MakeButton(GetStr(MSG_WR_AddPack)),
  2183.                      Child, data->GUI.BT_DEL     = MakeButton(GetStr(MSG_Del)),
  2184.                      Child, data->GUI.BT_DISPLAY = MakeButton(GetStr(MSG_WR_Display)),
  2185.                   End,
  2186.                   Child, HGroup,
  2187.                      Child, data->GUI.RA_ENCODING = RadioObject,
  2188.                         GroupFrameT(GetStr(MSG_WR_Encoding)),
  2189.                         MUIA_Radio_Entries, encoding,
  2190.                         MUIA_CycleChain, 1,
  2191.                      End,
  2192.                      Child, ColGroup(2),
  2193.                         Child, Label2(GetStr(MSG_WR_ContentType)),
  2194.                         Child, PoplistObject,
  2195.                            MUIA_Popstring_String, data->GUI.ST_CTYPE = MakeString(SIZE_CTYPE,GetStr(MSG_WR_ContentType)),
  2196.                            MUIA_Popstring_Button, PopButton(MUII_PopUp),
  2197.                            MUIA_Poplist_Array   , ContType,
  2198.                         End,
  2199.                         Child, Label2(GetStr(MSG_WR_Description)),
  2200.                         Child, data->GUI.ST_DESC = MakeString(SIZE_DEFAULT,GetStr(MSG_WR_Description)),
  2201.                         Child, HSpace(0),
  2202.                      End,
  2203.                   End,
  2204.                End,
  2205.                Child, VGroup, /* Options */
  2206.                   MUIA_HelpNode, "WR02",
  2207.                   Child, ColGroup(2),
  2208.                      Child, Label(GetStr(MSG_WR_CopyTo)),
  2209.                      Child, MakeAddressField(&data->GUI.ST_CC, GetStr(MSG_WR_CopyTo), MSG_HELP_WR_ST_CC, ABM_CC, winnum, TRUE),
  2210.                      Child, Label(GetStr(MSG_WR_BlindCopyTo)),
  2211.                      Child, MakeAddressField(&data->GUI.ST_BCC, GetStr(MSG_WR_BlindCopyTo), MSG_HELP_WR_ST_BCC, ABM_BCC, winnum, TRUE),
  2212.                      Child, Label(GetStr(MSG_WR_From)),
  2213.                      Child, MakeAddressField(&data->GUI.ST_FROM, GetStr(MSG_WR_From), MSG_HELP_WR_ST_FROM, ABM_FROM, winnum, FALSE),
  2214.                      Child, Label(GetStr(MSG_WR_ReplyTo)),
  2215.                      Child, MakeAddressField(&data->GUI.ST_REPLYTO, GetStr(MSG_WR_ReplyTo), MSG_HELP_WR_ST_REPLYTO, ABM_REPLYTO, winnum, FALSE),
  2216.                      Child, Label(GetStr(MSG_WR_ExtraHeaders)),
  2217.                      Child, data->GUI.ST_EXTHEADER = MakeString(SIZE_LARGE,GetStr(MSG_WR_ExtraHeaders)),
  2218.                   End,
  2219.                   Child, HGroup,
  2220.                      Child, VGroup, GroupFrameT(GetStr(MSG_WR_SendOpt)),
  2221.                         Child, MakeCheckGroup((Object **)&data->GUI.CH_DELSEND, GetStr(MSG_WR_DelSend)),
  2222.                         Child, MakeCheckGroup((Object **)&data->GUI.CH_RECEIPT, GetStr(MSG_WR_Receipt)),
  2223.                         Child, MakeCheckGroup((Object **)&data->GUI.CH_DISPNOTI, GetStr(MSG_WR_GetMDN)),
  2224.                         Child, MakeCheckGroup((Object **)&data->GUI.CH_ADDINFO, GetStr(MSG_WR_AddInfo)),
  2225.                         Child, HGroup,
  2226.                            Child, Label(GetStr(MSG_WR_Importance)),
  2227.                            Child, data->GUI.CY_IMPORTANCE = MakeCycle(priority, GetStr(MSG_WR_Importance)),
  2228.                         End,
  2229.                      End,
  2230.                      Child, HSpace(0),
  2231.                      Child, data->GUI.RA_SIGNATURE = RadioObject, GroupFrameT(GetStr(MSG_WR_Signature)),
  2232.                         MUIA_Radio_Entries, signat,
  2233.                         MUIA_Radio_Active, C->UseSignature ? 1 : 0,
  2234.                         MUIA_CycleChain, 1,
  2235.                      End,
  2236.                      Child, HSpace(0),
  2237.                      Child, data->GUI.RA_SECURITY = RadioObject, GroupFrameT(GetStr(MSG_WR_Security)),
  2238.                            MUIA_Radio_Entries, security,
  2239.                            MUIA_Radio_Active, SEC_DEFAULTS,
  2240.                            MUIA_CycleChain, 1,
  2241.                         End,
  2242.                   End,
  2243.                End,
  2244.             End,
  2245.             Child, ColGroup(4),
  2246.                Child, data->GUI.BT_SEND   = MakeButton(GetStr(MSG_WR_Send)),
  2247.                Child, data->GUI.BT_QUEUE  = MakeButton(GetStr(MSG_WR_ToQueue)),
  2248.                Child, data->GUI.BT_HOLD   = MakeButton(GetStr(MSG_WR_Hold)),
  2249.                Child, data->GUI.BT_CANCEL = MakeButton(GetStr(MSG_Cancel)),
  2250.             End,
  2251.          End,
  2252.       End;
  2253.       if (data->GUI.WI)
  2254.       {
  2255.          DoMethod(G->App, OM_ADDMEMBER, data->GUI.WI);
  2256.          set(data->GUI.ST_TO, MUIA_UserData, data->GUI.ST_SUBJECT);
  2257.          set(data->GUI.ST_CC, MUIA_UserData, data->GUI.ST_BCC);
  2258.          set(data->GUI.ST_BCC, MUIA_UserData, data->GUI.ST_FROM);
  2259.          set(data->GUI.ST_FROM, MUIA_UserData, data->GUI.ST_REPLYTO);
  2260.          set(data->GUI.ST_REPLYTO, MUIA_UserData, data->GUI.ST_EXTHEADER);
  2261.          get(data->GUI.TE_EDIT, MUIA_TextEditor_TypeAndSpell, &spell);
  2262.          set(mi_autospell, MUIA_Menuitem_Checked, spell);
  2263.          set(data->GUI.CY_IMPORTANCE, MUIA_Cycle_Active, 1);
  2264.          DoMethod(G->App, MUIM_MultiSet,  MUIA_Disabled, TRUE, data->GUI.RA_ENCODING, data->GUI.ST_CTYPE, data->GUI.ST_DESC, data->GUI.BT_DEL, data->GUI.BT_DISPLAY, NULL);
  2265.          SetHelp(data->GUI.ST_SUBJECT    ,MSG_HELP_WR_ST_SUBJECT   );
  2266.          SetHelp(data->GUI.BT_ADD        ,MSG_HELP_WR_BT_ADD       );
  2267.          SetHelp(data->GUI.BT_ADDPACK    ,MSG_HELP_WR_BT_ADDPACK   );
  2268.          SetHelp(data->GUI.BT_DEL        ,MSG_HELP_WR_BT_DEL       );
  2269.          SetHelp(data->GUI.BT_DISPLAY    ,MSG_HELP_WR_BT_DISPLAY   );
  2270.          SetHelp(data->GUI.RA_ENCODING   ,MSG_HELP_WR_RA_ENCODING  );
  2271.          SetHelp(data->GUI.ST_CTYPE      ,MSG_HELP_WR_ST_CTYPE     );
  2272.          SetHelp(data->GUI.ST_DESC       ,MSG_HELP_WR_ST_DESC      );
  2273.          SetHelp(data->GUI.ST_EXTHEADER  ,MSG_HELP_WR_ST_EXTHEADER );
  2274.          SetHelp(data->GUI.CH_DELSEND    ,MSG_HELP_WR_CH_DELSEND   );
  2275.          SetHelp(data->GUI.CH_RECEIPT    ,MSG_HELP_WR_CH_RECEIPT   );
  2276.          SetHelp(data->GUI.CH_DISPNOTI   ,MSG_HELP_WR_CH_DISPNOTI  );
  2277.          SetHelp(data->GUI.CH_ADDINFO    ,MSG_HELP_WR_CH_ADDINFO   );
  2278.          SetHelp(data->GUI.CY_IMPORTANCE ,MSG_HELP_WR_CY_IMPORTANCE);
  2279.          SetHelp(data->GUI.RA_SIGNATURE  ,MSG_HELP_WR_RA_SIGNATURE );
  2280.          SetHelp(data->GUI.RA_SECURITY   ,MSG_HELP_WR_RA_SECURITY  );
  2281.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_NEW       ,data->GUI.TE_EDIT      ,1,MUIM_TextEditor_ClearText);
  2282.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_OPEN      ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_EditorCmdHook,ED_OPEN,winnum);
  2283.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_INSFILE   ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_EditorCmdHook,ED_INSERT,winnum);
  2284.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_INSQUOT   ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_EditorCmdHook,ED_INSQUOT,winnum);
  2285.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_INSALTQUOT,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_EditorCmdHook,ED_INSALTQUOT,winnum);
  2286.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_INSROT13  ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_EditorCmdHook,ED_INSROT13,winnum);
  2287.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_SAVEAS    ,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_SaveAsHook,winnum);
  2288.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_EDIT      ,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_EditHook,winnum);
  2289.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_CUT       ,data->GUI.TE_EDIT      ,3,MUIM_TextEditor_ARexxCmd,"Cut");
  2290.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_COPY      ,data->GUI.TE_EDIT      ,3,MUIM_TextEditor_ARexxCmd,"Copy");
  2291.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_PASTE     ,data->GUI.TE_EDIT      ,3,MUIM_TextEditor_ARexxCmd,"Paste");
  2292.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_PASQUOT   ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_EditorCmdHook,ED_PASQUOT,winnum);
  2293.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_PASALTQUOT,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_EditorCmdHook,ED_PASALTQUOT,winnum);
  2294.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_PASROT13  ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_EditorCmdHook,ED_PASROT13,winnum);
  2295.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_DICT      ,MUIV_Notify_Application,3,MUIM_CallHook   ,&DI_OpenHook,winnum);
  2296.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_UNDO      ,data->GUI.TE_EDIT      ,3,MUIM_TextEditor_ARexxCmd,"Undo");
  2297.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_REDO      ,data->GUI.TE_EDIT      ,3,MUIM_TextEditor_ARexxCmd,"Redo");
  2298.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_ADDFILE   ,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_AddFileHook,winnum);
  2299.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_ADDCLIP   ,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_AddClipboardHook,winnum);
  2300.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_ADDPGP    ,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_AddPGPKeyHook,winnum);
  2301.          for (i = 0; i < 4; i++) DoMethod(data->GUI.WI,MUIM_Notify,MUIA_Window_MenuAction,WMEN_EMOT0+i,data->GUI.TE_EDIT,2,MUIM_TextEditor_InsertText,emoticons[i]);
  2302.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_SEP0      ,data->GUI.TE_EDIT      ,4,MUIM_CallHook   ,&WR_InsertSeparatorHook,FALSE,winnum);
  2303.          DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction   ,WMEN_SEP1      ,data->GUI.TE_EDIT      ,4,MUIM_CallHook   ,&WR_InsertSeparatorHook,TRUE,winnum);
  2304.          DoMethod(data->GUI.RG_PAGE    ,MUIM_Notify,MUIA_AppMessage          ,MUIV_EveryTime ,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_AppHook,MUIV_TriggerValue,winnum);
  2305.          DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify,MUIA_TextEditor_AreaMarked,MUIV_EveryTime,MUIV_Notify_Application,5,MUIM_MultiSet  ,MUIA_Menuitem_Enabled,MUIV_TriggerValue,mi_copy,mi_cut,NULL);
  2306.          if (data->GUI.TO_TOOLBAR)
  2307.          {
  2308.             DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify,MUIA_TextEditor_AreaMarked,MUIV_EveryTime,data->GUI.TO_TOOLBAR  ,6,MUIM_Toolbar_MultiSet,MUIV_Toolbar_Set_Ghosted, MUIV_NotTriggerValue,3,4,-1);
  2309.             DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify,MUIA_TextEditor_UndoAvailable,MUIV_EveryTime,data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set,6,MUIV_Toolbar_Set_Ghosted,MUIV_NotTriggerValue);
  2310.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify, 0, MUIV_Toolbar_Notify_Pressed,FALSE, MUIV_Notify_Application,3,MUIM_CallHook,&WR_EditHook,winnum);
  2311.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify, 1, MUIV_Toolbar_Notify_Pressed,FALSE, MUIV_Notify_Application,4,MUIM_CallHook,&WR_EditorCmdHook,ED_INSERT,winnum);
  2312.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify, 3, MUIV_Toolbar_Notify_Pressed,FALSE, data->GUI.TE_EDIT,2,MUIM_TextEditor_ARexxCmd, "CUT");
  2313.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify, 4, MUIV_Toolbar_Notify_Pressed,FALSE, data->GUI.TE_EDIT,2,MUIM_TextEditor_ARexxCmd, "COPY");
  2314.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify, 5, MUIV_Toolbar_Notify_Pressed,FALSE, data->GUI.TE_EDIT,2,MUIM_TextEditor_ARexxCmd, "PASTE");
  2315.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify, 6, MUIV_Toolbar_Notify_Pressed,FALSE, data->GUI.TE_EDIT,2,MUIM_TextEditor_ARexxCmd, "UNDO");
  2316.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify, 8, MUIV_Toolbar_Notify_Pressed,MUIV_EveryTime, data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_StyleBold,     MUIV_TriggerValue);
  2317.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify, 9, MUIV_Toolbar_Notify_Pressed,MUIV_EveryTime, data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_StyleItalic,   MUIV_TriggerValue);
  2318.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify,10, MUIV_Toolbar_Notify_Pressed,MUIV_EveryTime, data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_StyleUnderline,MUIV_TriggerValue);
  2319.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify,11, MUIV_Toolbar_Notify_Pressed,TRUE,           data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_Pen,           7);
  2320.             DoMethod(data->GUI.TO_TOOLBAR ,MUIM_Toolbar_Notify,11, MUIV_Toolbar_Notify_Pressed,FALSE,          data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_Pen,           0);
  2321.             DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_StyleBold,      MUIV_EveryTime, data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set, 8,MUIV_Toolbar_Set_Selected,MUIV_TriggerValue);
  2322.             DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_StyleItalic,    MUIV_EveryTime, data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set, 9,MUIV_Toolbar_Set_Selected,MUIV_TriggerValue);
  2323.             DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_StyleUnderline, MUIV_EveryTime, data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set,10,MUIV_Toolbar_Set_Selected,MUIV_TriggerValue);
  2324.             DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_Pen,            7,              data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set,11,MUIV_Toolbar_Set_Selected,TRUE);
  2325.             DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_Pen,            0,              data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set,11,MUIV_Toolbar_Set_Selected,FALSE);
  2326.             DoMethod(mi_bold              ,MUIM_Notify, MUIA_Menuitem_Checked,          MUIV_EveryTime, data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set, 8,MUIV_Toolbar_Set_Selected,MUIV_TriggerValue);
  2327.             DoMethod(mi_italic            ,MUIM_Notify, MUIA_Menuitem_Checked,          MUIV_EveryTime, data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set, 9,MUIV_Toolbar_Set_Selected,MUIV_TriggerValue);
  2328.             DoMethod(mi_underl            ,MUIM_Notify, MUIA_Menuitem_Checked,          MUIV_EveryTime, data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set,10,MUIV_Toolbar_Set_Selected,MUIV_TriggerValue);
  2329.             DoMethod(mi_color             ,MUIM_Notify, MUIA_Menuitem_Checked,          MUIV_EveryTime, data->GUI.TO_TOOLBAR,4,MUIM_Toolbar_Set,11,MUIV_Toolbar_Set_Selected,MUIV_TriggerValue);
  2330.          }
  2331.          DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify,MUIA_TextEditor_UndoAvailable,MUIV_EveryTime,mi_undo            ,3,MUIM_Set,MUIA_Menuitem_Enabled,MUIV_TriggerValue);
  2332.          DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify,MUIA_TextEditor_RedoAvailable,MUIV_EveryTime,mi_redo            ,3,MUIM_Set,MUIA_Menuitem_Enabled,MUIV_TriggerValue);
  2333.          if (data->GUI.TX_POSI)
  2334.          {
  2335.             DoMethod(data->GUI.TE_EDIT ,MUIM_Notify,MUIA_TextEditor_CursorX,MUIV_EveryTime,MUIV_Notify_Application,3,MUIM_CallHook,&WR_UpdateWTitleHook,winnum);
  2336.             DoMethod(data->GUI.TE_EDIT ,MUIM_Notify,MUIA_TextEditor_CursorY,MUIV_EveryTime,MUIV_Notify_Application,3,MUIM_CallHook,&WR_UpdateWTitleHook,winnum);
  2337.          }
  2338.          DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_StyleBold,      MUIV_EveryTime, mi_bold        ,3,MUIM_Set        ,MUIA_Menuitem_Checked,MUIV_TriggerValue);
  2339.          DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_StyleItalic,    MUIV_EveryTime, mi_italic      ,3,MUIM_Set        ,MUIA_Menuitem_Checked,MUIV_TriggerValue);
  2340.          DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_StyleUnderline, MUIV_EveryTime, mi_underl      ,3,MUIM_Set        ,MUIA_Menuitem_Checked,MUIV_TriggerValue);
  2341.          DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_Pen,            7,              mi_color       ,3,MUIM_Set        ,MUIA_Menuitem_Checked,TRUE);
  2342.          DoMethod(data->GUI.TE_EDIT    ,MUIM_Notify, MUIA_TextEditor_Pen,            0,              mi_color       ,3,MUIM_Set        ,MUIA_Menuitem_Checked,FALSE);
  2343.          DoMethod(mi_bold              ,MUIM_Notify, MUIA_Menuitem_Checked,          MUIV_EveryTime, data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_StyleBold,     MUIV_TriggerValue);
  2344.          DoMethod(mi_italic            ,MUIM_Notify, MUIA_Menuitem_Checked,          MUIV_EveryTime, data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_StyleItalic,   MUIV_TriggerValue);
  2345.          DoMethod(mi_underl            ,MUIM_Notify, MUIA_Menuitem_Checked,          MUIV_EveryTime, data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_StyleUnderline,MUIV_TriggerValue);
  2346.          DoMethod(mi_color             ,MUIM_Notify, MUIA_Menuitem_Checked,          TRUE,           data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_Pen,           7);
  2347.          DoMethod(mi_color             ,MUIM_Notify, MUIA_Menuitem_Checked,          FALSE,          data->GUI.TE_EDIT,3,MUIM_Set,MUIA_TextEditor_Pen,           0);
  2348.          DoMethod(data->GUI.RG_PAGE    ,MUIM_Notify,MUIA_Group_ActivePage    ,0             ,MUIV_Notify_Window     ,3,MUIM_Set        ,MUIA_Window_NoMenus,FALSE);
  2349.          DoMethod(data->GUI.RG_PAGE    ,MUIM_Notify,MUIA_Group_ActivePage    ,1             ,MUIV_Notify_Window     ,3,MUIM_Set        ,MUIA_Window_NoMenus,TRUE);
  2350.          DoMethod(data->GUI.RG_PAGE    ,MUIM_Notify,MUIA_Group_ActivePage    ,2             ,MUIV_Notify_Window     ,3,MUIM_Set        ,MUIA_Window_NoMenus,TRUE);
  2351.          DoMethod(data->GUI.ST_SUBJECT ,MUIM_Notify,MUIA_String_Acknowledge  ,MUIV_EveryTime,MUIV_Notify_Window     ,3,MUIM_Set        ,MUIA_Window_ActiveObject,data->GUI.TE_EDIT);
  2352.          DoMethod(data->GUI.BT_ADD     ,MUIM_Notify,MUIA_Pressed             ,FALSE         ,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_AddFileHook,winnum);
  2353.          DoMethod(data->GUI.BT_ADDPACK ,MUIM_Notify,MUIA_Pressed             ,FALSE         ,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_AddArchiveHook,winnum);
  2354.          DoMethod(data->GUI.BT_DEL     ,MUIM_Notify,MUIA_Pressed             ,FALSE         ,data->GUI.LV_ATTACH    ,2,MUIM_List_Remove,MUIV_List_Remove_Active);
  2355.          DoMethod(data->GUI.BT_DISPLAY ,MUIM_Notify,MUIA_Pressed             ,FALSE         ,data->GUI.LV_ATTACH    ,3,MUIM_CallHook   ,&WR_DisplayFileHook,winnum);
  2356.          DoMethod(data->GUI.LV_ATTACH  ,MUIM_Notify,MUIA_List_Active         ,MUIV_EveryTime,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_GetFileEntryHook,winnum);
  2357.          DoMethod(data->GUI.RA_ENCODING,MUIM_Notify,MUIA_Radio_Active        ,MUIV_EveryTime,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_PutFileEntryHook,winnum);
  2358.          DoMethod(data->GUI.ST_CTYPE   ,MUIM_Notify,MUIA_String_Contents     ,MUIV_EveryTime,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_PutFileEntryHook,winnum);
  2359.          DoMethod(data->GUI.ST_DESC    ,MUIM_Notify,MUIA_String_Contents     ,MUIV_EveryTime,MUIV_Notify_Application,3,MUIM_CallHook   ,&WR_PutFileEntryHook,winnum);
  2360.          DoMethod(data->GUI.RA_SIGNATURE,MUIM_Notify,MUIA_Radio_Active        ,MUIV_EveryTime,MUIV_Notify_Application,4,MUIM_CallHook   ,&WR_ChangeSignatureHook,MUIV_TriggerValue,winnum);
  2361.          DoMethod(data->GUI.CH_DELSEND ,MUIM_Notify,MUIA_Selected            ,MUIV_EveryTime,mi_delsend              ,3,MUIM_Set        ,MUIA_Menuitem_Checked,MUIV_TriggerValue);
  2362.          DoMethod(data->GUI.CH_RECEIPT ,MUIM_Notify,MUIA_Selected            ,MUIV_EveryTime,mi_receipt              ,3,MUIM_Set        ,MUIA_Menuitem_Checked,MUIV_TriggerValue);
  2363.          DoMethod(data->GUI.CH_DISPNOTI,MUIM_Notify,MUIA_Selected            ,MUIV_EveryTime,mi_dispnoti             ,3,MUIM_Set        ,MUIA_Menuitem_Checked,MUIV_TriggerValue);
  2364.          DoMethod(data->GUI.CH_ADDINFO ,MUIM_Notify,MUIA_Selected            ,MUIV_EveryTime,mi_addinfo              ,3,MUIM_Set        ,MUIA_Menuitem_Checked,MUIV_TriggerValue);
  2365.          DoMethod(mi_autospell         ,MUIM_Notify,MUIA_Menuitem_Checked    ,MUIV_EveryTime,data->GUI.TE_EDIT       ,3,MUIM_Set        ,MUIA_TextEditor_TypeAndSpell,MUIV_TriggerValue);
  2366.          DoMethod(mi_delsend           ,MUIM_Notify,MUIA_Menuitem_Checked    ,MUIV_EveryTime,data->GUI.CH_DELSEND    ,3,MUIM_Set        ,MUIA_Selected,MUIV_TriggerValue);
  2367.          DoMethod(mi_receipt           ,MUIM_Notify,MUIA_Menuitem_Checked    ,MUIV_EveryTime,data->GUI.CH_RECEIPT    ,3,MUIM_Set        ,MUIA_Selected,MUIV_TriggerValue);
  2368.          DoMethod(mi_dispnoti          ,MUIM_Notify,MUIA_Menuitem_Checked    ,MUIV_EveryTime,data->GUI.CH_DISPNOTI   ,3,MUIM_Set        ,MUIA_Selected,MUIV_TriggerValue);
  2369.          DoMethod(mi_addinfo           ,MUIM_Notify,MUIA_Menuitem_Checked    ,MUIV_EveryTime,data->GUI.CH_ADDINFO    ,3,MUIM_Set        ,MUIA_Selected,MUIV_TriggerValue);
  2370.          DoMethod(data->GUI.RA_SECURITY,MUIM_Notify,MUIA_Radio_Active        ,4             ,data->GUI.RA_SIGNATURE  ,3,MUIM_Set        ,MUIA_Radio_Active,0);
  2371.          DoMethod(data->GUI.RA_SECURITY,MUIM_Notify,MUIA_Radio_Active        ,4             ,data->GUI.CH_ADDINFO    ,3,MUIM_Set        ,MUIA_Selected,FALSE);
  2372.          for (i = 0; i < 3; i++)
  2373.          {
  2374.             DoMethod(data->GUI.CY_IMPORTANCE,MUIM_Notify,MUIA_Cycle_Active     ,i              ,strip                  ,4,MUIM_SetUData,WMEN_IMPORT0+i,MUIA_Menuitem_Checked,TRUE);
  2375.             DoMethod(data->GUI.WI           ,MUIM_Notify,MUIA_Window_MenuAction,WMEN_IMPORT0+i ,data->GUI.CY_IMPORTANCE,3,MUIM_Set     ,MUIA_Cycle_Active,i);
  2376.          }
  2377.          for (i = 0; i < 4; i++) 
  2378.          {
  2379.             DoMethod(data->GUI.RA_SIGNATURE ,MUIM_Notify,MUIA_Radio_Active     ,i              ,strip                  ,4,MUIM_SetUData,WMEN_SIGN0+i,MUIA_Menuitem_Checked,TRUE);
  2380.             DoMethod(data->GUI.WI           ,MUIM_Notify,MUIA_Window_MenuAction,WMEN_SIGN0+i   ,data->GUI.RA_SIGNATURE ,3,MUIM_Set     ,MUIA_Radio_Active,i);
  2381.          }
  2382.          for (i = SEC_NONE; i < SEC_MAXDUMMY; i++) 
  2383.          {
  2384.                 // connect menuitems -> radiobuttons
  2385.                 DoMethod(data->GUI.WI         ,MUIM_Notify,MUIA_Window_MenuAction,WMEN_SECUR0+i,data->GUI.RA_SECURITY,3,MUIM_Set        ,MUIA_Radio_Active    ,i);
  2386.                 // ...and the other way round
  2387.                 DoMethod(data->GUI.RA_SECURITY,MUIM_Notify,MUIA_Radio_Active     ,i            ,sec_menus[i]         ,3,MUIM_NoNotifySet,MUIA_Menuitem_Checked,TRUE);
  2388.          }
  2389.          WR_SharedSetup(data, winnum);
  2390.          return data;
  2391.       }
  2392.       free(data);
  2393.    }
  2394.    return NULL;
  2395. }
  2396.  
  2397. ///
  2398. /// WR_NewBounce
  2399. //  Creates a bounce window
  2400. LOCAL struct WR_ClassData *WR_NewBounce(int winnum)
  2401. {
  2402.    struct WR_ClassData *data;
  2403.  
  2404.    if ((data = calloc(1,sizeof(struct WR_ClassData))))
  2405.    {
  2406.       data->GUI.WI = WindowObject,
  2407.          MUIA_Window_Title, GetStr(MSG_WR_BounceWT),
  2408.          MUIA_HelpNode, "WR_W",
  2409.          MUIA_Window_ID, MAKE_ID('W','R','I','B'),
  2410.          WindowContents, VGroup, GroupFrame,
  2411.             MUIA_Background, MUII_GroupBack,
  2412.             Child, ColGroup(2),
  2413.                Child, Label2(GetStr(MSG_WR_BounceTo)),
  2414.                Child, MakeAddressField(&data->GUI.ST_TO, GetStr(MSG_WR_BounceTo), MSG_HELP_WR_ST_TO, ABM_TO, winnum, TRUE),
  2415.             End,
  2416.             Child, ColGroup(4),
  2417.                Child, data->GUI.BT_SEND   = MakeButton(GetStr(MSG_WR_Send)),
  2418.                Child, data->GUI.BT_QUEUE  = MakeButton(GetStr(MSG_WR_ToQueue)),
  2419.                Child, data->GUI.BT_HOLD   = MakeButton(GetStr(MSG_WR_Hold)),
  2420.                Child, data->GUI.BT_CANCEL = MakeButton(GetStr(MSG_Cancel)),
  2421.             End,
  2422.          End,
  2423.       End;
  2424.       if (data->GUI.WI)
  2425.       {
  2426.          DoMethod(G->App, OM_ADDMEMBER, data->GUI.WI);
  2427.          set(data->GUI.ST_TO, MUIA_UserData, data->GUI.BT_SEND);
  2428.          WR_SharedSetup(data, winnum);
  2429.          return data;
  2430.       }
  2431.       free(data);
  2432.    }
  2433.    return NULL;
  2434. }
  2435. /// vi: set ts=3 ss=0 scs si nu:
  2436.